Change 34420: $! and $1 are PVMG(), but their content is undefined when peeking

[H . Merijn Brand]

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.