r49559 - in /trunk/libtest-trap-perl: ./ debian/ lib/Test/ lib/Test/Trap/ lib/Test/Trap/Builder/ t/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Wed Dec 30 17:18:01 UTC 2009


Author: gregoa
Date: Wed Dec 30 17:17:56 2009
New Revision: 49559

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49559
Log:
New upstream release.

Added:
    trunk/libtest-trap-perl/t/08-fork.PL
      - copied unchanged from r49558, branches/upstream/libtest-trap-perl/current/t/08-fork.PL
    trunk/libtest-trap-perl/t/11-systemsafe-basic.PL
      - copied unchanged from r49558, branches/upstream/libtest-trap-perl/current/t/11-systemsafe-basic.PL
Removed:
    trunk/libtest-trap-perl/t/08-fork-no-taint.t
    trunk/libtest-trap-perl/t/08-fork-taint.t
    trunk/libtest-trap-perl/t/08-fork.pl
    trunk/libtest-trap-perl/t/11-systemsafe-basic-no-taint.t
    trunk/libtest-trap-perl/t/11-systemsafe-basic-taint.t
    trunk/libtest-trap-perl/t/11-systemsafe-basic.pl
Modified:
    trunk/libtest-trap-perl/Build.PL
    trunk/libtest-trap-perl/Changes
    trunk/libtest-trap-perl/MANIFEST
    trunk/libtest-trap-perl/META.yml
    trunk/libtest-trap-perl/Makefile.PL
    trunk/libtest-trap-perl/debian/changelog
    trunk/libtest-trap-perl/lib/Test/Trap.pm
    trunk/libtest-trap-perl/lib/Test/Trap/Builder.pm
    trunk/libtest-trap-perl/lib/Test/Trap/Builder/PerlIO.pm
    trunk/libtest-trap-perl/lib/Test/Trap/Builder/SystemSafe.pm
    trunk/libtest-trap-perl/lib/Test/Trap/Builder/TempFile.pm
    trunk/libtest-trap-perl/t/01-basic.t
    trunk/libtest-trap-perl/t/02-reentrant.t
    trunk/libtest-trap-perl/t/03-files.pl
    trunk/libtest-trap-perl/t/04-exit.t
    trunk/libtest-trap-perl/t/06-layers.t
    trunk/libtest-trap-perl/t/07-subclass.t
    trunk/libtest-trap-perl/t/09-array-accessor.t
    trunk/libtest-trap-perl/t/10-tester.t
    trunk/libtest-trap-perl/t/12-systemsafe-errors.t
    trunk/libtest-trap-perl/t/13-regressions.t

Modified: trunk/libtest-trap-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/Build.PL?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/Build.PL (original)
+++ trunk/libtest-trap-perl/Build.PL Wed Dec 30 17:17:56 2009
@@ -2,43 +2,7 @@
 use warnings;
 use Module::Build;
 
-my $class = Module::Build->subclass( code => <<'TRICK_EMACS' . <<'END_SUBCLASS' );
-TRICK_EMACS
-
-=head1 ACTIONS
-
-=head2 authortest
-
-This runs all the C<xt/author> tests, as well as the ordinary tests,
-after making sure that the build, manifest, and distmeta actions have
-been taken.
-
-=cut
-
-sub ACTION_authortest {
-    my ($self) = @_;
-
-    $self->depends_on('build');
-    $self->depends_on('manifest');
-    $self->depends_on('distmeta');
-
-    $self->test_files( qw< t xt/author > );
-    $self->recursive_test_files(1);
-
-    $self->depends_on('test');
-
-    return;
-}
-
-sub ACTION_distdir {
-    my ($self) = @_;
-
-    $self->depends_on('authortest');
-
-    return $self->SUPER::ACTION_distdir();
-}
-
-END_SUBCLASS
+my $class = Module::Build->subclass( code => do { local $/; <DATA> } );
 
 my $builder = $class->new
   ( module_name         => 'Test::Trap',
@@ -63,7 +27,83 @@
       'version'           => 0,
       'warnings'          => 0,
     },
-    add_to_cleanup      => [ 'Test-Trap-*' ],
+    PL_files =>
+    { 't/08-fork.PL'             => 't/08-fork.t',
+      't/11-systemsafe-basic.PL' => 't/11-systemsafe-basic.t',
+    },
+    add_to_cleanup =>
+    [ 'Test-Trap-*',
+      't/08-fork.t',
+      't/11-systemsafe-basic.t',
+    ],
   );
 
 $builder->create_build_script();
+
+__DATA__
+
+=head1 ACTIONS
+
+=head2 authortest
+
+This runs all the C<xt/author> tests, as well as the ordinary tests,
+after making sure that the build, manifest, and distmeta actions have
+been taken.
+
+=cut
+
+sub ACTION_authortest {
+  my ($self) = @_;
+
+  $self->depends_on('build');
+  $self->depends_on('manifest');
+  $self->depends_on('distmeta');
+
+  $self->test_files( qw< t xt/author > );
+  $self->recursive_test_files(1);
+
+  $self->depends_on('test');
+
+  return;
+}
+
+sub ACTION_distdir {
+  my ($self) = @_;
+
+  $self->depends_on('authortest');
+
+  return $self->SUPER::ACTION_distdir();
+}
+
+sub ACTION_distmeta {
+  my ($self) = @_;
+
+  require Module::Build::Compat;
+  unless (Module::Build::Compat->VERSION gt 0.31 or eval { Module::Build::Compat->PL_FILES_PATCH }) {
+    die <<'DIE'
+Too old Module::Build::Compat to Build distmeta.
+Upgrade if possible or apply the following hack patch:
+--- Compat.pm   2008-10-04 02:14:02.000000000 +0200
++++ Compat.pm   2008-10-04 02:15:10.000000000 +0200
+@@ -139,7 +139,7 @@
+     
+     $MM_Args{EXE_FILES} = [ sort keys %{$build->script_files} ] if $build->script_files;
+     
+-    $MM_Args{PL_FILES} = {};
++    $MM_Args{PL_FILES} = $build->PL_files;
+     
+     local $Data::Dumper::Terse = 1;
+     my $args = Data::Dumper::Dumper(\%MM_Args);
+@@ -153,6 +153,7 @@
+   }
+ }
+ 
++sub PL_FILES_PATCH { 1 }
+ 
+ sub subclass_dir {
+   my ($self, $build) = @_;
+DIE
+  }
+
+  return $self->SUPER::ACTION_distmeta();
+}

Modified: trunk/libtest-trap-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/Changes?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/Changes (original)
+++ trunk/libtest-trap-perl/Changes Wed Dec 30 17:17:56 2009
@@ -1,4 +1,18 @@
 Revision history for Test-Trap
+
+0.2.1	Tue Dec 29 23:14:45 CET 2009
+	Documentation:
+	 - fix a typo, [RT #48941]; thanks go to David Taylor;
+	Tests:
+	 - use .PL-files to build the test files t/08-fork.t and
+           t/11-systemsafe-basic.t instead of dispatching through
+           *-taint.t and *-no-taint.t files at runtime;
+	Build:
+	 - setup the build of the above test files in Build.PL;
+	 - add a ACTION_distmeta override to check for patch to or
+           version of Module::Build::Compat with correct handling of
+           PL_FILES/PL_files;
+	 - update the MANIFEST and .SKIP files accordingly.
 
 0.2.0	Tue Sep 30 04:28:30 CEST 2008
 	Test::Trap::Builder::SystemSafe:

Modified: trunk/libtest-trap-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/MANIFEST?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/MANIFEST (original)
+++ trunk/libtest-trap-perl/MANIFEST Wed Dec 30 17:17:56 2009
@@ -20,14 +20,10 @@
 t/05-import.t
 t/06-layers.t
 t/07-subclass.t
-t/08-fork-no-taint.t
-t/08-fork-taint.t
-t/08-fork.pl
+t/08-fork.PL
 t/09-array-accessor.t
 t/10-tester.t
-t/11-systemsafe-basic-no-taint.t
-t/11-systemsafe-basic-taint.t
-t/11-systemsafe-basic.pl
+t/11-systemsafe-basic.PL
 t/12-systemsafe-errors.t
 t/13-regressions.t
 t/99-coverage.t

Modified: trunk/libtest-trap-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/META.yml?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/META.yml (original)
+++ trunk/libtest-trap-perl/META.yml Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 ---
 name: Test-Trap
-version: 0.2.0
+version: v0.2.1
 author:
   - 'Eirik Berg Hanssen <Eirik-Berg.Hanssen at allverden.no>'
 abstract: 'Trap exit codes, exceptions, output, etc.'
@@ -19,27 +19,29 @@
   base: 0
   constant: 0
   lib: 0
-  perl: 5.6.2
+  perl: v5.6.2
   strict: 0
   version: 0
   warnings: 0
+configure_requires:
+  Module::Build: 0.35
 provides:
   Test::Trap:
     file: lib/Test/Trap.pm
-    version: 0.2.0
+    version: v0.2.1
   Test::Trap::Builder:
     file: lib/Test/Trap/Builder.pm
-    version: 0.2.0
+    version: v0.2.1
   Test::Trap::Builder::PerlIO:
     file: lib/Test/Trap/Builder/PerlIO.pm
-    version: 0.2.0
+    version: v0.2.1
   Test::Trap::Builder::SystemSafe:
     file: lib/Test/Trap/Builder/SystemSafe.pm
-    version: 0.2.0
+    version: v0.2.1
   Test::Trap::Builder::TempFile:
     file: lib/Test/Trap/Builder/TempFile.pm
-    version: 0.2.0
-generated_by: Module::Build version 0.280801
+    version: v0.2.1
+generated_by: Module::Build version 0.35
 meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4

Modified: trunk/libtest-trap-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/Makefile.PL?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/Makefile.PL (original)
+++ trunk/libtest-trap-perl/Makefile.PL Wed Dec 30 17:17:56 2009
@@ -1,9 +1,12 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
 require 5.6.2;
 use ExtUtils::MakeMaker;
 WriteMakefile
 (
-          'PL_FILES' => {},
+          'PL_FILES' => {
+                          't/08-fork.PL' => 't/08-fork.t',
+                          't/11-systemsafe-basic.PL' => 't/11-systemsafe-basic.t'
+                        },
           'INSTALLDIRS' => 'site',
           'NAME' => 'Test::Trap',
           'EXE_FILES' => [],

Modified: trunk/libtest-trap-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/debian/changelog?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/debian/changelog (original)
+++ trunk/libtest-trap-perl/debian/changelog Wed Dec 30 17:17:56 2009
@@ -1,3 +1,9 @@
+libtest-trap-perl (0.2.1-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 30 Dec 2009 18:16:03 +0100
+
 libtest-trap-perl (0.2.0-1) unstable; urgency=low
 
   * Initial Release. (Closes: #498538)

Modified: trunk/libtest-trap-perl/lib/Test/Trap.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/lib/Test/Trap.pm?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/lib/Test/Trap.pm (original)
+++ trunk/libtest-trap-perl/lib/Test/Trap.pm Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 package Test::Trap;
 
-use version; $VERSION = qv('0.2.0');
+use version; $VERSION = qv('0.2.1');
 
 use strict;
 use warnings;
@@ -301,7 +301,7 @@
 
 =head1 VERSION
 
-Version 0.2.0
+Version 0.2.1
 
 =head1 SYNOPSIS
 
@@ -321,7 +321,7 @@
 return values from boxed blocks of test code.
 
 The values collected by the latest trap can then be queried or tested
-through a a special trap object.
+through a special trap object.
 
 =head1 EXPORT
 

Modified: trunk/libtest-trap-perl/lib/Test/Trap/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/lib/Test/Trap/Builder.pm?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/lib/Test/Trap/Builder.pm (original)
+++ trunk/libtest-trap-perl/lib/Test/Trap/Builder.pm Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 package Test::Trap::Builder;
 
-use version; $VERSION = qv('0.2.0');
+use version; $VERSION = qv('0.2.1');
 
 use strict;
 use warnings;
@@ -366,7 +366,7 @@
 
 =head1 VERSION
 
-Version 0.2.0
+Version 0.2.1
 
 =head1 SYNOPSIS
 

Modified: trunk/libtest-trap-perl/lib/Test/Trap/Builder/PerlIO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/lib/Test/Trap/Builder/PerlIO.pm?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/lib/Test/Trap/Builder/PerlIO.pm (original)
+++ trunk/libtest-trap-perl/lib/Test/Trap/Builder/PerlIO.pm Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 package Test::Trap::Builder::PerlIO;
 
-use version; $VERSION = qv('0.2.0');
+use version; $VERSION = qv('0.2.1');
 
 use strict;
 use warnings;
@@ -30,7 +30,7 @@
 
 =head1 VERSION
 
-Version 0.2.0
+Version 0.2.1
 
 =head1 DESCRIPTION
 

Modified: trunk/libtest-trap-perl/lib/Test/Trap/Builder/SystemSafe.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/lib/Test/Trap/Builder/SystemSafe.pm?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/lib/Test/Trap/Builder/SystemSafe.pm (original)
+++ trunk/libtest-trap-perl/lib/Test/Trap/Builder/SystemSafe.pm Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 package Test::Trap::Builder::SystemSafe;
 
-use version; $VERSION = qv('0.2.0');
+use version; $VERSION = qv('0.2.1');
 
 use strict;
 use warnings;
@@ -90,7 +90,7 @@
 
 =head1 VERSION
 
-Version 0.2.0
+Version 0.2.1
 
 =head1 DESCRIPTION
 

Modified: trunk/libtest-trap-perl/lib/Test/Trap/Builder/TempFile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/lib/Test/Trap/Builder/TempFile.pm?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/lib/Test/Trap/Builder/TempFile.pm (original)
+++ trunk/libtest-trap-perl/lib/Test/Trap/Builder/TempFile.pm Wed Dec 30 17:17:56 2009
@@ -1,6 +1,6 @@
 package Test::Trap::Builder::TempFile;
 
-use version; $VERSION = qv('0.2.0');
+use version; $VERSION = qv('0.2.1');
 
 use strict;
 use warnings;
@@ -43,7 +43,7 @@
 
 =head1 VERSION
 
-Version 0.2.0
+Version 0.2.1
 
 =head1 DESCRIPTION
 

Modified: trunk/libtest-trap-perl/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/01-basic.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/01-basic.t (original)
+++ trunk/libtest-trap-perl/t/01-basic.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/01-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 2 + 8*9;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/02-reentrant.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/02-reentrant.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/02-reentrant.t (original)
+++ trunk/libtest-trap-perl/t/02-reentrant.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/02-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 1 + 6*5 + 3;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/03-files.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/03-files.pl?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/03-files.pl (original)
+++ trunk/libtest-trap-perl/t/03-files.pl Wed Dec 30 17:17:56 2009
@@ -1,5 +1,6 @@
 #!perl -T
 
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More;
 use IO::Handle;
 use File::Temp qw( tempfile );

Modified: trunk/libtest-trap-perl/t/04-exit.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/04-exit.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/04-exit.t (original)
+++ trunk/libtest-trap-perl/t/04-exit.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/04-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 6;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/06-layers.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/06-layers.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/06-layers.t (original)
+++ trunk/libtest-trap-perl/t/06-layers.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/06-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 4*15 + 4*5 + 3*6 + 5*13; # non-default standard layers + output backend + internal exceptions + exits
 use IO::Handle;
 use File::Temp qw( tempfile );

Modified: trunk/libtest-trap-perl/t/07-subclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/07-subclass.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/07-subclass.t (original)
+++ trunk/libtest-trap-perl/t/07-subclass.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/07-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 8 + 5*18;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/09-array-accessor.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/09-array-accessor.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/09-array-accessor.t (original)
+++ trunk/libtest-trap-perl/t/09-array-accessor.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/09-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 6;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/10-tester.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/10-tester.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/10-tester.t (original)
+++ trunk/libtest-trap-perl/t/10-tester.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/10-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::Tester;
 use Test::More tests => 2 + 3 + 7*15 + 5*3;
 use strict;

Modified: trunk/libtest-trap-perl/t/12-systemsafe-errors.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/12-systemsafe-errors.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/12-systemsafe-errors.t (original)
+++ trunk/libtest-trap-perl/t/12-systemsafe-errors.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/12-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 10;
 use strict;
 use warnings;

Modified: trunk/libtest-trap-perl/t/13-regressions.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-trap-perl/t/13-regressions.t?rev=49559&op=diff
==============================================================================
--- trunk/libtest-trap-perl/t/13-regressions.t (original)
+++ trunk/libtest-trap-perl/t/13-regressions.t Wed Dec 30 17:17:56 2009
@@ -1,5 +1,7 @@
 #!perl -T
 # -*- mode: cperl ; compile-command: "cd .. ; ./Build ; prove -vb t/13-*.t" -*-
+
+BEGIN { $_ = defined && /(.*)/ && $1 for @ENV{qw/ TMPDIR TEMP TMP /} } # taint vs tempfile
 use Test::More tests => 5;
 use strict;
 use warnings;




More information about the Pkg-perl-cvs-commits mailing list