X-Git-Url: http://git.vrable.net/?a=blobdiff_plain;f=contrib%2Frestore.pl;fp=contrib%2Frestore.pl;h=98ae277d17e2203879149f9b19c3f436f8eb4a74;hb=048815121720c9cfb0bc8df48efd9aa0c846e3d0;hp=556297445e11187b44b8c19d80dd922eafc31d5d;hpb=910255ec7fb85ef6c7b9515e9761892ca408c389;p=cumulus.git

diff --git a/contrib/restore.pl b/contrib/restore.pl
index 5562974..98ae277 100755
--- a/contrib/restore.pl
+++ b/contrib/restore.pl
@@ -359,7 +359,7 @@ sub process_metadata {
         # Try to parse the data as "key: value" pairs of file metadata.  Also
         # handle continuation lines, which start with whitespace and continue
         # the previous "key: value" pair.
-        if ($line =~ m/^(\w+):\s*(.*)$/) {
+        if ($line =~ m/^([-\w]+):\s*(.*)$/) {
             $info{$1} = $2;
             $last_key = $1;
         } elsif ($line =~/^\s/ && defined $last_key) {
@@ -409,7 +409,7 @@ while (defined($line = <DESCRIPTOR>)) {
     # lines.
     chomp $line;
 
-    if ($line =~ m/^(\w+):\s*(.*)$/) {
+    if ($line =~ m/^([-\w]+):\s*(.*)$/) {
         $descriptor{$1} = $2;
         $last_key = $1;
     } elsif ($line =~/^\s/ && defined $last_key) {