pytrainer: unpin python 3.10
[NixPkgs.git] / pkgs / development / perl-modules / net-amazon-mechanicalturk.patch
blobdde13b9b0fca574c17b75d52c8b5bdd93832e320
1 From http://daveviner.blogspot.com/2009/12/amazon-mechanical-turk-perl-library.html
2 http://www.vinertech.com/patches/net-amazon-mechanicalturk.patch
4 diff -rubB Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm
5 --- Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm 2007-08-13 11:38:53.000000000 -0700
6 +++ Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm 2009-12-13 16:37:49.000000000 -0800
7 @@ -29,17 +29,21 @@
10 sub packageExists {
11 - my ($class, $package) = @_;
12 + my ($class, $package, $moduleFile) = @_;
14 + if (defined($moduleFile) && exists($INC{$moduleFile})) {
15 + return 1;
16 + }
17 # Symbol table black magic
18 no strict 'refs';
19 - return defined %{*{"${package}::"}};
20 + return scalar(keys(%{*{"${package}::"}}));
23 sub require {
24 my ($class, $module) = @_;
25 - if (!$class->packageExists($module)) {
26 my $moduleFile = $module . ".pm";
27 $moduleFile =~ s/::/\//g;
28 + if (!$class->packageExists($module, $moduleFile)) {
29 require $moduleFile;
32 diff -rubB Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t
33 --- Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t 2007-08-13 11:38:56.000000000 -0700
34 +++ Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t 2009-12-13 16:55:30.000000000 -0800
35 @@ -8,10 +8,10 @@
37 eval {
38 require DBI;
39 - require DBD::SQLite2;
40 + require DBD::SQLite;
42 if ($@) {
43 - plan skip_all => "SQLite2 not installed.";
44 + plan skip_all => "SQLite not installed.";
46 else {
47 plan tests => 2;
48 @@ -21,7 +21,7 @@
49 #-----------------------
50 my $dbfile = "t/data/test.db";
51 unlink($dbfile) if (-f $dbfile);
52 -my $dbh = DBI->connect("dbi:SQLite2:dbname=${dbfile}","","", {
53 +my $dbh = DBI->connect("dbi:SQLite:dbname=${dbfile}","","", {
54 RaiseError => 1,
55 AutoCommit => 1
56 });
57 @@ -42,7 +42,7 @@
58 foreach my $id (1..30) {
59 $sth->execute($id, rand(), scalar localtime());
62 +$sth->finish();
64 # Actual test
65 #----------------------