X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=git-svn.perl;h=c4163584a93ba594141aa8af99948fc8929605d7;hb=7e7db5e4520388d3a6f1efbe2f7a29d43bd06a2b;hp=19d6848d0e7754b9afb9fdbbac6fce31286468a5;hpb=8d676d85f772ce3a100b6f0dddd1c34a7e4313cf;p=git.git

diff --git a/git-svn.perl b/git-svn.perl
index 19d6848d0..c4163584a 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -3169,6 +3169,22 @@ sub has_no_changes {
 			LIST_CACHE => 'FAULT',
 		;
 	}
+
+	sub unmemoize_svn_mergeinfo_functions {
+		return if not $memoized;
+		$memoized = 0;
+
+		Memoize::unmemoize 'lookup_svn_merge';
+		Memoize::unmemoize 'check_cherry_pick';
+		Memoize::unmemoize 'has_no_changes';
+	}
+}
+
+END {
+	# Force cache writeout explicitly instead of waiting for
+	# global destruction to avoid segfault in Storable:
+	# http://rt.cpan.org/Public/Bug/Display.html?id=36087
+	unmemoize_svn_mergeinfo_functions();
 }
 
 sub parents_exclude {