Change 11669 by jhi@alpha on 2001/08/14 13:07:09
Subject: [PATCH] [b-]showlex.t
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Sun, 12 Aug 2001 22:24:51 +0200
Message-ID: <[EMAIL PROTECTED]>
The 4nt command shell will expand the % in command line
no matter what quoting is attempted, changed the % to @.
Affected files ...
... //depot/perl/ext/B/Showlex.t#3 edit
Differences ...
==== //depot/perl/ext/B/Showlex.t#3 (text) ====
Index: perl/ext/B/Showlex.t
--- perl/ext/B/Showlex.t.~1~ Tue Aug 14 07:15:05 2001
+++ perl/ext/B/Showlex.t Tue Aug 14 07:15:05 2001
@@ -29,12 +29,12 @@
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;
End of Patch.
