Change 34420 by [EMAIL PROTECTED] on 2008/09/26 08:39:27 $! and $1 are PVMG(), but their content is undefined when peeking
Affected files ... ... //depot/perl/ext/XS/APItest/t/svpeek.t#2 edit Differences ... ==== //depot/perl/ext/XS/APItest/t/svpeek.t#2 (text) ==== Index: perl/ext/XS/APItest/t/svpeek.t --- perl/ext/XS/APItest/t/svpeek.t#1~34417~ 2008-09-25 05:54:16.000000000 -0700 +++ perl/ext/XS/APItest/t/svpeek.t 2008-09-26 01:39:27.000000000 -0700 @@ -12,7 +12,7 @@ use strict; use warnings; -use Test::More tests => 49; +use Test::More tests => 50; BEGIN { use_ok('XS::APItest') }; @@ -29,12 +29,12 @@ is (DPeek ($^), 'PVMG()', '$^'); is (DPeek ($=), 'PVMG()', '$='); is (DPeek ($-), 'PVMG()', '$-'); - is (DPeek ($!), 'PVMG(""\0)', '$!'); +like (DPeek ($!), qr'^PVMG\("', '$!'); is (DPeek ($?), 'PVMG()', '$?'); is (DPeek ($|), 'PVMG(1)', '$|'); "abc" =~ m/(b)/; # Don't know why these magic vars have this content -# is (DPeek ($1), 'PVMG("$"\0)', ' $1'); +like (DPeek ($1), qr'^PVMG\("', ' $1'); is (DPeek ($`), 'PVMG()', ' $`'); is (DPeek ($&), 'PVMG()', ' $&'); is (DPeek ($'), 'PVMG()', " \$'"); End of Patch.