From: Paul Marquess <Paul.Marquess@ntlworld.com>
Date: Wed, 10 Jun 2009 03:26:21 +0000 (-0500)
Subject: [PATCH] Filter-Util-Call (was RE: pmqs: dual life modules)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af6a0f9e3d4aacb66f6fd0d20aa527ab7d9a9032;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/ext/Filter-Util-Call/t/call.t b/ext/Filter-Util-Call/t/call.t
index c1a5685..b1c7c05 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;