[PATCH] Filter-Util-Call (was RE: pmqs: dual life modules)

1 files changed, 14 insertions, 8 deletions

diff --git a/ext/Filter-Util-Call/t/call.t b/ext/Filter-Util-Call/t/call.t
index c1a5685669..b1c7c05dad 100644
--- a/ext/Filter-Util-Call/t/call.t
+++ b/ext/Filter-Util-Call/t/call.t
@@ -1,13 +1,19 @@
 BEGIN {
-    chdir('t') if -d 't';    
-    @INC = '.'; 
-    push @INC, '../lib';
-    require Config; import Config;
-    if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
-        print "1..0 # Skip: Filter::Util::Call was not built\n";
-        exit 0;
+    if ($ENV{PERL_CORE}){
+        chdir('t') if -d 't';
+        @INC = ('.', '../lib');
+    
+        require Config; import Config;
+        %Config=%Config if 0; # cease -w
+        if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
+            print "1..0 # Skip: Filter::Util::Call was not built\n";
+            exit 0;
+        }
+        require 'lib/filter-util.pl';
+    }
+    else {
+        require 'filter-util.pl';
     }
-    require 'lib/filter-util.pl';
 }
 
 use strict;