Accept any kind of pointer stringification

Leont · Sep 29, 2012 · 7a4830b · 7a4830b
1 parent e3226e5
commit 7a4830b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+          Accept any kind of pointer stringification
 
 0.002     2012-09-26 16:30:47 Europe/Amsterdam
 

diff --git a/t/15-debugger.t b/t/15-debugger.t
@@ -13,7 +13,7 @@ plan(skip_all => 'no fork') if not $Config{d_fork};
 
 sub check_segv(&@);
 
-my $address_not_mapped = qr/address not mapped to object \[0x[0-9a-f]+\]/;
+my $address_not_mapped = qr/address not mapped to object \[.*?\]/s;
 
 check_segv { raise(SIGSEGV) } qr/from user/, 'Got stacktrace on raise';
 check_segv { eval 'package Regexp; use overload q{""} => sub { qr/$_[0]/ }; "".qr//' } $address_not_mapped, 'Got stacktrace on overload recursion';