Merge pull request #246 from uecasm/patch-1

dscho · dscho · commit 3b79bb0f70ab · 2016-09-24T21:13:00.000+02:00
Verify memoized files can be reloaded before using them
diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm
@@ -1658,6 +1658,11 @@ sub tie_for_persistent_memoization {
 	if ($memo_backend > 0) {
 		tie %$hash => 'Git::SVN::Memoize::YAML', "$path.yaml";
 	} else {
+		# first verify that any existing file can actually be loaded
+		# (it may have been saved by an incompatible version)
+		if (-e "$path.db") {
+			unlink "$path.db" unless eval { retrieve("$path.db"); 1 };
+		}
 		tie %$hash => 'Memoize::Storable', "$path.db", 'nstore';
 	}
 }

Original file line number	Diff line number	Diff line change
`@@ -1658,6 +1658,11 @@ sub tie_for_persistent_memoization {`
`1658`	`1658`	`if ($memo_backend > 0) {`
`1659`	`1659`	`tie %$hash => 'Git::SVN::Memoize::YAML', "$path.yaml";`
`1660`	`1660`	`} else {`
	`1661`	`+ # first verify that any existing file can actually be loaded`
	`1662`	`+ # (it may have been saved by an incompatible version)`
	`1663`	`+ if (-e "$path.db") {`
	`1664`	`+ unlink "$path.db" unless eval { retrieve("$path.db"); 1 };`
	`1665`	`+ }`
`1661`	`1666`	`tie %$hash => 'Memoize::Storable', "$path.db", 'nstore';`
`1662`	`1667`	`}`
`1663`	`1668`	`}`