Deal with class names containing '=' [RT#72415]

gisle · Feb 11, 2012 · f00c47d · f00c47d
1 parent 77a8218
commit f00c47d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lib/Data/Dump.pm b/lib/Data/Dump.pm
@@ -108,7 +108,7 @@ sub _dump
     my($class, $type, $id);
     my $strval = overload::StrVal($rval);
     # Parse $strval without using regexps, in order not to clobber $1, $2,...
-    if ((my $i = index($strval, "=")) >= 0) {
+    if ((my $i = rindex($strval, "=")) >= 0) {
 	$class = substr($strval, 0, $i);
 	$strval = substr($strval, $i+1);
     }

diff --git a/t/dump.t b/t/dump.t
@@ -2,7 +2,7 @@
 
 use strict;
 use Test qw(plan ok);
-plan tests => 33;
+plan tests => 34;
 
 use Data::Dump qw(dump);
 
@@ -64,3 +64,4 @@ EOT
 # stranger stuff
 ok(dump({ a => \&Data::Dump::dump, aa => do {require Symbol; Symbol::gensym()}}),
    "do {\n  require Symbol;\n  { a => sub { ... }, aa => Symbol::gensym() };\n}");
+ok(dump(bless{}, "foo=bar"), 'bless({}, "foo=bar")');