This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #948] [PATCH] Allow tied $,
[perl5.git] / ext / XS / APItest / t / svpeek.t
index 69d80d7..8226386 100644 (file)
@@ -21,7 +21,7 @@ $| = 1;
   is (DPeek ($/),    'PVMG("\n"\0)',           '$/');
   is (DPeek ($\),    'PVMG()',                 '$\\');
   is (DPeek ($.),    'PVMG()',                 '$.');
-  is (DPeek ($,),    'PVMG()',                 '$,');
+  is (DPeek ($,),    'UNDEF',                  '$,');
   is (DPeek ($;),    'PV("\34"\0)',            '$;');
   is (DPeek ($"),    'PV(" "\0)',              '$"');
   is (DPeek ($:),    'PVMG(" \n-"\0)',         '$:');