Upgrade to Text::ParseWords 3.27

[p5sagit/p5-mst-13.2.git] / lib / Text / ParseWords / taint.t

diff --git a/lib/Text/ParseWords/taint.t b/lib/Text/ParseWords/taint.t
index 27f6de5..029f27d 100644 (file)
--- a/lib/Text/ParseWords/taint.t
+++ b/lib/Text/ParseWords/taint.t
@@ -2,12 +2,15 @@
 # [perl #33173] shellwords.pl and tainting
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    require Config;
-    if ($Config::Config{extensions} !~ /\bList\/Util\b/) {
-       print "1..0 # Skip: Scalar::Util was not built\n";
-       exit 0;
+    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;
+        }
     }
 }