dump($1) still doesn't work [RT#63883]

gisle · Oct 14, 2011 · 97119d4 · 97119d4
1 parent ebefa82
commit 97119d4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/dollar-one.t b/t/dollar-one.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 use Data::Dump qw/dump/;
 
@@ -9,3 +9,8 @@ if ("abc" =~ /(.+)/) {
     is(dump(\$1), '\"abc"');
     is(dump([$1]), '["abc"]');
 }
+
+if ("123" =~ /(.+)/) {
+    local $TODO = '$1 still modified by dump itself';
+    is(dump($1), "123");
+}