Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11541/perlmod/Fink
Modified Files:
ChangeLog Scanpackages.pm
Log Message:
patch up oopsie
Index: Scanpackages.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Scanpackages.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Scanpackages.pm 19 Mar 2006 03:18:31 -0000 1.6
+++ Scanpackages.pm 19 Mar 2006 04:06:26 -0000 1.7
@@ -178,12 +178,13 @@
if (defined $out && ref($out) ne 'GLOB') {
close $self->{outfh} or die "ERROR: Can't close output:
$!\n";
- unlink $tmpfile;
- rename $tmpfile, $out;
+ chmod 0644, $tmpfile or die "ERROR: Can't chown tmp
file: $!\n";
+ rename $tmpfile, $out or die "ERROR: Can't move tmp
file: $!\n";
}
}; my $err = $@;
# Cleanup
+ unlink $tmpfile if $tmpfile;
delete $self->{outfh};
chdir $cwd;
die $err if $err;
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1271
retrieving revision 1.1272
diff -u -d -r1.1271 -r1.1272
--- ChangeLog 19 Mar 2006 03:18:31 -0000 1.1271
+++ ChangeLog 19 Mar 2006 04:06:26 -0000 1.1272
@@ -1,5 +1,9 @@
2006-03-18 Dave Vasilevsky <[EMAIL PROTECTED]>
+ * Scanpackages.pm: Let's NOT delete files for no good reason.
+
+2006-03-18 Dave Vasilevsky <[EMAIL PROTECTED]>
+
* Scanpackages.pm: Better error handling.
2006-03-18 Dave Vasilevsky <[EMAIL PROTECTED]>
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
