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

diff --git a/contrib/restore.pl b/contrib/restore.pl
index 98ae277..40ac469 100755
--- a/contrib/restore.pl
+++ b/contrib/restore.pl
@@ -122,17 +122,21 @@ sub load_ref {
     # If a range was specified, then only a subset of the bytes of the object
     # are desired.  Extract just the desired bytes.
     if ($range) {
-        if ($range !~ m/^\[((\d+)\+)?(\d+)\]$/) {
-            die "Malformed object range: $range";
-        }
-
         my $object_size = length $contents;
         my ($start, $length);
-        if (defined($1)) {
-            ($start, $length) = ($2 + 0, $3 + 0);
+
+        if ($range =~ m/^\[=(\d+)\]$/) {
+            die "Object size incorrect (ref $ref_str, actual size $object_size"
+                if $object_size != $1;
+            ($start, $length) = (0, $1 + 0);
+        } elsif ($range =~ m/^\[(\d+)\]$/) {
+            ($start, $length) = (0, $1 + 0);
+        } elsif ($range =~ m/^\[(\d+)\+(\d+)\]$/) {
+            ($start, $length) = ($1 + 0, $2 + 0);
         } else {
-            ($start, $length) = (0, $3 + 0);
+            die "Malformed object range: $range";
         }
+
         if ($start >= $object_size || $start + $length > $object_size) {
             die "Object range $range falls outside object bounds "
                 . "(actual size $object_size)";