Author: sparky
Date: Mon Aug 2 22:46:31 2010
New Revision: 11754
Modified:
toys/rsget.pl/RSGet/FileList.pm
Log:
- force file list rewrite on termination, even if list lock is
active, solves RSGETPL-27
Modified: toys/rsget.pl/RSGet/FileList.pm
==============================================================================
--- toys/rsget.pl/RSGet/FileList.pm (original)
+++ toys/rsget.pl/RSGet/FileList.pm Mon Aug 2 22:46:31 2010
@@ -71,7 +71,11 @@
}
END {
- list_close $list_fh if $list_fh;
+ if ( $list_fh ) {
+ $update = 2;
+ readlist();
+ list_close $list_fh;
+ }
}
sub set_file
@@ -412,8 +416,11 @@
}
}
- # we are forced to regenerate the list if there was something added
- unlink $file_swp if @added or $update == 2;
+ if ( ( @added or $update == 2 ) and -e $file_swp ) {
+ # we are forced to regenerate the list if there was something
added
+ warn "Forced $file rewrite, your file lock will be broken\n";
+ unlink $file_swp;
+ }
unless ( -e $file_swp ) {
my $fh = list_open $file . ".tmp";
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
