Fix bug #21347 (segfault in UNIVERSAL::AUTOLOAD with qr//)

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

diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index 41dbd32..afff12e 100755 (executable)
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -1,8 +1,11 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     if ($^O eq 'MacOS') {
        @INC = qw(: ::lib ::macos:lib);
+    } else {
+       @INC = '../lib';
     }
 }
 
@@ -30,11 +33,6 @@ if ($is_thread) {
     print "# use5005threads: test $test skipped\n";
 } else {
     $a = `$^X $path "-MO=Showlex" -e "my \@one" $redir`;
-    if (ord('A') != 193) { # ASCIIish
-        print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
-    }
-    else { # EBCDICish C<1: PVNV (0x1a7ede34) "@\226\225\205">
-        print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@\\[0-9].*sv_undef.*AV/s;
-    }
+    print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
 }
 ok;