Upgrade to Test::Harness 3.14

[p5sagit/p5-mst-13.2.git] / ext / Test / Harness / t / compat / failure.t

diff --git a/ext/Test/Harness/t/compat/failure.t b/ext/Test/Harness/t/compat/failure.t
index b164f9b..759b664 100644 (file)
--- a/ext/Test/Harness/t/compat/failure.t
+++ b/ext/Test/Harness/t/compat/failure.t
@@ -20,12 +20,15 @@ use Test::Harness;
     }
 
     my $sample_tests;
-    if ($ENV{PERL_CORE}) {
-       my $updir = File::Spec->updir;
-       $sample_tests = File::Spec->catdir( $updir, 'ext', 'Test', 'Harness', 't', 'sample-tests' );
-    } else {
-       my $curdir = File::Spec->curdir;
-       $sample_tests = File::Spec->catdir( $curdir, 't', 'sample-tests' );
+    if ( $ENV{PERL_CORE} ) {
+        my $updir = File::Spec->updir;
+        $sample_tests
+          = File::Spec->catdir( $updir, 'ext', 'Test', 'Harness', 't',
+            'sample-tests' );
+    }
+    else {
+        my $curdir = File::Spec->curdir;
+        $sample_tests = File::Spec->catdir( $curdir, 't', 'sample-tests' );
     }
 
     {