From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Sun, 12 Aug 2001 22:24:51 +0000 (+0200)
Subject: [b-]showlex.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56034a21148b7e209c292ff46abf1c959280e441;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;