[perl #948] [PATCH] Allow tied $,

[perl5.git] / ext / XS / APItest / t / svpeek.t

diff --git a/ext/XS/APItest/t/svpeek.t b/ext/XS/APItest/t/svpeek.t
index 69d80d7..8226386 100644 (file)
--- a/ext/XS/APItest/t/svpeek.t
+++ b/ext/XS/APItest/t/svpeek.t
@@ -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)',         '$:');