Deal with the perl-5.13 (?^:...) regex construct [RT#61552]

gisle · Sep 27, 2010 · a677ecc · a677ecc
1 parent 98b6ac7
commit a677ecc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Data/Dump.pm b/lib/Data/Dump.pm
@@ -192,7 +192,7 @@ sub _dump
 		my $v = "$rval";
 
 		my $mod = "";
-		if ($v =~ /^\(\?([msix-]+):([\x00-\xFF]*)\)\z/) {
+		if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) {
 		    $mod = $1;
 		    $v = $2;
 		    $mod =~ s/-.*//;