Fix Test::ParseWords' test (remove PERL_CORE boilerplate)
Steffen Mueller [Sun, 30 Aug 2009 20:18:42 +0000 (22:18 +0200)]
ext/Text-ParseWords/t/taint.t

index 029f27d..959ba79 100644 (file)
@@ -1,19 +1,6 @@
 #!./perl -Tw
 # [perl #33173] shellwords.pl and tainting
 
-BEGIN {
-    if ( $ENV{PERL_CORE} ) {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-        require Config;
-        no warnings 'once';
-        if ($Config::Config{extensions} !~ /\bList\/Util\b/) {
-            print "1..0 # Skip: Scalar::Util was not built\n";
-            exit 0;
-        }
-    }
-}
-
 use Text::ParseWords qw(shellwords old_shellwords);
 use Scalar::Util qw(tainted);