Merge pull request #246 from uecasm/patch-1

dscho · dscho · commit bce5a54f32be · 2016-10-27T09:27:30.000+02:00
Verify memoized files can be reloaded before using them
diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm
@@ -1663,6 +1663,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
`@@ -1663,6 +1663,11 @@ sub tie_for_persistent_memoization {`
`1663`	`1663`	`if ($memo_backend > 0) {`
`1664`	`1664`	`tie %$hash => 'Git::SVN::Memoize::YAML', "$path.yaml";`
`1665`	`1665`	`} else {`
	`1666`	`+ # first verify that any existing file can actually be loaded`
	`1667`	`+ # (it may have been saved by an incompatible version)`
	`1668`	`+ if (-e "$path.db") {`
	`1669`	`+ unlink "$path.db" unless eval { retrieve("$path.db"); 1 };`
	`1670`	`+ }`
`1666`	`1671`	`tie %$hash => 'Memoize::Storable', "$path.db", 'nstore';`
`1667`	`1672`	`}`
`1668`	`1673`	`}`