r14146 - /scripts/qa/DebianQA/Cache.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Mon Feb 4 18:43:27 UTC 2008
Author: tincho-guest
Date: Mon Feb 4 18:43:27 2008
New Revision: 14146
URL: http://svn.debian.org/wsvn/?sc=1&rev=14146
Log:
Truncate cache files before writing, to avoid keeping old trash around.
Modified:
scripts/qa/DebianQA/Cache.pm
Modified: scripts/qa/DebianQA/Cache.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Cache.pm?rev=14146&op=diff
==============================================================================
--- scripts/qa/DebianQA/Cache.pm (original)
+++ scripts/qa/DebianQA/Cache.pm Mon Feb 4 18:43:27 2008
@@ -172,6 +172,7 @@
}
}
seek($fd, 0, SEEK_SET) or die "Can't seek: $!\n";
+ truncate($fd, 0) or die "Can't truncate: $!\n";
store_fd($cdata, $fd) or die "Can't save cache: $!\n";
unless($keep_lock) {
unlock_cache($cache);
More information about the Pkg-perl-cvs-commits
mailing list