From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 7 Sep 2009 09:33:58 +0000 (+0200)
Subject: Make Encode's piconv.t test run within the core
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0aeed6507963171d23ad85fa5175ab17feb9a951;p=p5sagit%2Fp5-mst-13.2.git

Make Encode's piconv.t test run within the core
---

diff --git a/ext/Encode/t/piconv.t b/ext/Encode/t/piconv.t
index e477f04..d97bb28 100644
--- a/ext/Encode/t/piconv.t
+++ b/ext/Encode/t/piconv.t
@@ -2,13 +2,6 @@
 # $Id: piconv.t,v 0.2 2009/07/13 00:50:52 dankogai Exp $
 #
 
-BEGIN {
-    if ( $ENV{'PERL_CORE'} ) {
-        print "1..0 # Skip: Don't know how to test this within perl's core\n";
-        exit 0;
-    }
-}
-
 use strict;
 use FindBin;
 use File::Spec;
@@ -29,7 +22,7 @@ my $blib =
   File::Spec->rel2abs(
     File::Spec->catdir( $FindBin::RealBin, File::Spec->updir, 'blib' ) );
 my $script = File::Spec->catdir($blib, 'script', 'piconv');
-my @base_cmd = ( $^X, "-Mblib=$blib", $script );
+my @base_cmd = ( $^X, ($ENV{PERL_CORE} ? () : "-Mblib=$blib"), $script );
 
 plan tests => 5;