Encode.xs: add an explicit cast to make g++ happier

[p5sagit/p5-mst-13.2.git] / ext / B / t / terse.t

diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index d8d0529..2df8eee 100644 (file)
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -1,8 +1,12 @@
 #!./perl
 
 BEGIN {
-       chdir 't' if -d 't';
-       @INC = '../lib';
+        if ($ENV{PERL_CORE}){
+               chdir('t') if -d 't';
+               @INC = ('.', '../lib');
+        } else {
+               unshift @INC, 't';
+        }
        require Config;
        if (($Config::Config{'extensions'} !~ /\bB\b/) ){
                print "1..0 # Skip -- Perl configured without B module\n";
@@ -50,8 +54,8 @@ foreach (@lines) {
                my $op = $1;
                next unless exists $ops{$op};
                like( $_, $ops{$op}, "$op " );
-               delete $ops{$op};
                s/$ops{$op}//;
+               delete $ops{$op};
                redo if $_;
        }
 }
@@ -76,7 +80,7 @@ sub bar {
        $a = 1.234;
 
        # this is awful, but it gives a PMOP
-       my $boo = split('', $foo);
+       our @ary = split('', $foo);
 
        # PVOP, LOOP
        LOOP: for (1 .. 10) {