From a677eccb3bf6a102a3d4a8bc0a92cffe6ec83813 Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@aas.no>
Date: Mon, 27 Sep 2010 08:08:03 +0200
Subject: [PATCH] Deal with the perl-5.13 (?^:...) regex construct [RT#61552]

---
 lib/Data/Dump.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Data/Dump.pm b/lib/Data/Dump.pm
index 3557d77..c7131d1 100644
--- 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/-.*//;