From e032f07b3aa80647d4df5d8a5c240d0a2cd8c66f Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Mon, 24 Nov 2008 06:35:37 +0100 Subject: [PATCH] #34831 fixed tied $, --- ChangeLog | 3 ++- t/20_DPeek.t | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 937a9bb..624dee8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ -2008-111-170.25 - H.Merijn Brand +2008-11-24 0.25 - H.Merijn Brand * Wrong e-mail in META.yml + * #34831 fixed tied $, 2008-10-31 0.24 - H.Merijn Brand diff --git a/t/20_DPeek.t b/t/20_DPeek.t index 28ffe61..c557f8a 100644 --- a/t/20_DPeek.t +++ b/t/20_DPeek.t @@ -20,7 +20,7 @@ else { like (DPeek ($/), qr'^PVMG\("\\(n|12)"\\0\)', '$/'); is (DPeek ($\), 'PVMG()', '$\\'); is (DPeek ($.), 'PVMG()', '$.'); -like (DPeek ($,), qr'^PVMG\((""\\0)?\)', '$,'); +like (DPeek ($,), qr'^PVMG\((""\\0)?\)|^UNDEF$','$,'); is (DPeek ($;), 'PV("\34"\0)', '$;'); is (DPeek ($"), 'PV(" "\0)', '$"'); like (DPeek ($:), qr'^PVMG\(" \\(n|12)-"\\0\)', '$:'); -- 2.11.4.GIT