[b-]showlex.t

Message-ID: <6510457078.20010812222451@tesla.rcub.bg.ac.yu>

The 4nt command shell will expand the % in command line
no matter what quoting is attempted, changed the % to @.

p4raw-id: //depot/perl@11669

diff --git a/ext/B/Showlex.t b/ext/B/Showlex.t
index f25bc5c..41dbd32 100644 (file)
--- a/ext/B/Showlex.t
+++ b/ext/B/Showlex.t
@@ -29,12 +29,12 @@ my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
 if ($is_thread) {
     print "# use5005threads: test $test skipped\n";
 } else {
-    $a = `$^X $path "-MO=Showlex" -e "my %one" $redir`;
+    $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.*HV/s;
+        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.*HV/s;
+    else { # EBCDICish C<1: PVNV (0x1a7ede34) "@\226\225\205">
+        print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@\\[0-9].*sv_undef.*AV/s;
     }
 }
 ok;