Package: storebackup
Version: 3.2-1
Severity: normal
Tags: upstream patch
Hi,
I got the following message
PROGRESS 2011.02.16 01:30:16 12887 read 212500 lines ...
PROGRESS 2011.02.16 01:30:Not a HASH reference at /usr/bin/storeBackup line
3600.
Use of uninitialized value $size in addition (+) at /usr/bin/storeBackup line
7089.
Use of uninitialized value in addition (+) at /usr/bin/storeBackup line 7131.
Use of uninitialized value $statNoBlocks in addition (+) at
/usr/bin/storeBackup line 6671.
Not a HASH reference at /usr/bin/storeBackup line 3600.
Use of uninitialized value $size in addition (+) at /usr/bin/storeBackup line
7089.
Use of uninitialized value in addition (+) at /usr/bin/storeBackup line 7131.
Use of uninitialized value $statNoBlocks in addition (+) at
/usr/bin/storeBackup line 6671.
16 12887 read 215000 lines ...
PROGRESS 2011.02.16 01:30:17 12887 read 217500 lines ...
and could fix it. Patch is attached
-- System Information:
Debian Release: 6.0
APT prefers stable
APT policy: (990, 'stable'), (500, 'squeeze-updates')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.32-5-amd64 (SMP w/2 CPU cores)
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Shell: /bin/sh linked to /bin/dash
Versions of packages storebackup depends on:
ii bzip2 1.0.5-6 high-quality block-sorting file co
ii debianutils 3.4 Miscellaneous utilities specific t
ii perl 5.10.1-17 Larry Wall's Practical Extraction
Versions of packages storebackup recommends:
ii libio-compress-bzip2-perl 2.024-1 Transitional dummy package for IO:
ii libio-compress-perl [libio-co 2.024-1 bundle of IO::Compress modules
ii perl [libio-compress-bzip2-pe 5.10.1-17 Larry Wall's Practical Extraction
storebackup suggests no packages.
-- no debconf information
--- storeBackup 2010-12-23 07:58:05.000000000 +0100
+++ storeBackup 2011-02-08 09:21:30.000000000 +0100
@@ -3589,7 +3589,7 @@
{
$prLog->print('-kind' => 'E',
'-str' => ["<$sourceDir> deleted during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
++$noErrors;
}
else
@@ -3599,7 +3599,7 @@
{
$prLog->print('-kind' => 'W',
'-str' => ["<$sourceDir> changed during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
++$noWarnings;
}
}
@@ -6157,7 +6157,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> deleted during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
next;
}
if ($lastMD5 ne $md5 or $lastSize != $size)
@@ -6165,7 +6165,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> changed during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
$md5 = $lastMD5;
$size = $lastSize;
}
@@ -6355,7 +6355,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> deleted during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
next;
}
@@ -6364,7 +6364,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> changed during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
$md5 = 'g' x 32;
}
@@ -6486,7 +6486,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> deleted during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
next;
}
@@ -6495,7 +6495,7 @@
$prLog->print('-kind' => 'W',
'-str' =>
["file <$dir/$file> changed during backup"])
- unless exists $$suppressWarning{'fileChange'};
+ unless exists $suppressWarning{'fileChange'};
$md5 = $lastMD5;
$size = $lastSize;
}
