Author: eelco Date: Wed Aug 10 13:05:39 2011 New Revision: 28459 URL: https://svn.nixos.org/websvn/nix/?rev=28459&sc=1
Log: * Add Net::Amazon::MechanicalTurk. Added: nixpkgs/trunk/pkgs/development/perl-modules/net-amazon-mechanicalturk.patch Modified: nixpkgs/trunk/pkgs/top-level/perl-packages.nix Added: nixpkgs/trunk/pkgs/development/perl-modules/net-amazon-mechanicalturk.patch ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ nixpkgs/trunk/pkgs/development/perl-modules/net-amazon-mechanicalturk.patch Wed Aug 10 13:05:39 2011 (r28459) @@ -0,0 +1,65 @@ +From http://daveviner.blogspot.com/2009/12/amazon-mechanical-turk-perl-library.html +http://www.vinertech.com/patches/net-amazon-mechanicalturk.patch + +diff -rubB Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm +--- Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm 2007-08-13 11:38:53.000000000 -0700 ++++ Net-Amazon-MechanicalTurk-1.01/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm 2009-12-13 16:37:49.000000000 -0800 +@@ -29,17 +29,21 @@ + } + + sub packageExists { +- my ($class, $package) = @_; ++ my ($class, $package, $moduleFile) = @_; ++ ++ if (defined($moduleFile) && exists($INC{$moduleFile})) { ++ return 1; ++ } + # Symbol table black magic + no strict 'refs'; +- return defined %{*{"${package}::"}}; ++ return scalar(keys(%{*{"${package}::"}})); + } + + sub require { + my ($class, $module) = @_; +- if (!$class->packageExists($module)) { + my $moduleFile = $module . ".pm"; + $moduleFile =~ s/::/\//g; ++ if (!$class->packageExists($module, $moduleFile)) { + require $moduleFile; + } + } +diff -rubB Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t +--- Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t 2007-08-13 11:38:56.000000000 -0700 ++++ Net-Amazon-MechanicalTurk-1.01/t/73-datagenerator-dbi.t 2009-12-13 16:55:30.000000000 -0800 +@@ -8,10 +8,10 @@ + + eval { + require DBI; +- require DBD::SQLite2; ++ require DBD::SQLite; + }; + if ($@) { +- plan skip_all => "SQLite2 not installed."; ++ plan skip_all => "SQLite not installed."; + } + else { + plan tests => 2; +@@ -21,7 +21,7 @@ + #----------------------- + my $dbfile = "t/data/test.db"; + unlink($dbfile) if (-f $dbfile); +-my $dbh = DBI->connect("dbi:SQLite2:dbname=${dbfile}","","", { ++my $dbh = DBI->connect("dbi:SQLite:dbname=${dbfile}","","", { + RaiseError => 1, + AutoCommit => 1 + }); +@@ -42,7 +42,7 @@ + foreach my $id (1..30) { + $sth->execute($id, rand(), scalar localtime()); + } +- ++$sth->finish(); + + # Actual test + #---------------------- Modified: nixpkgs/trunk/pkgs/top-level/perl-packages.nix ============================================================================== --- nixpkgs/trunk/pkgs/top-level/perl-packages.nix Wed Aug 10 11:31:53 2011 (r28458) +++ nixpkgs/trunk/pkgs/top-level/perl-packages.nix Wed Aug 10 13:05:39 2011 (r28459) @@ -1994,6 +1994,19 @@ doCheck = false; # wants to create actual EC2 instances (for $$$) }; + NetAmazonMechanicalTurk = buildPerlPackage rec { + name = "Net-Amazon-MechanicalTurk-1.01"; + src = fetchurl { + url = "mirror://cpan/authors/id/M/MT/MTURK/${name}.tar.gz"; + sha256 = "17xh6qcp2sw721r8cpcal80an49264db497namms4k139fsr1yig"; + }; + patches = + [ ../development/perl-modules/net-amazon-mechanicalturk.patch ]; + propagatedBuildInputs = + [ DigestHMAC LWP URI XMLParser IOString ]; + buildInputs = [ DBI DBDSQLite ]; + }; + NetDNS = buildPerlPackage { name = "Net-DNS-0.63"; src = fetchurl { _______________________________________________ nix-commits mailing list [email protected] http://mail.cs.uu.nl/mailman/listinfo/nix-commits
