Fix uninitialized variable warning in sample restore program.

[cumulus.git] / contrib / restore.pl

diff --git a/contrib/restore.pl b/contrib/restore.pl
index f9c55ce..5562974 100755 (executable)
--- a/contrib/restore.pl
+++ b/contrib/restore.pl
@@ -128,7 +128,7 @@ sub load_ref {
 
         my $object_size = length $contents;
         my ($start, $length);
-        if ($1 ne "") {
+        if (defined($1)) {
             ($start, $length) = ($2 + 0, $3 + 0);
         } else {
             ($start, $length) = (0, $3 + 0);