Update of /cvsroot/fink/scripts/pdb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31345
Modified Files:
dump
Log Message:
Nuke symlink when we're done. Remembered to import Command::rm_f.
Index: dump
===================================================================
RCS file: /cvsroot/fink/scripts/pdb/dump,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- dump 28 Apr 2005 23:18:33 -0000 1.19
+++ dump 28 Apr 2005 23:32:03 -0000 1.20
@@ -28,6 +28,7 @@
use Fink::Services qw(&read_config &latest_version);
use Fink::Config;
use Fink::Package;
+use Fink::Command qw(rm_f);
### read config
@@ -52,11 +53,13 @@
rm_f $treelink;
if (-e $treelink) {
print "Could not remove old $treelink\n";
+ undef $treelink;
} else {
if (symlink $tree, $treelink) {
$tree = "$distribution-$tree";
} else {
print "Could not create symlink $treelink: $!\n";
+ undef $treelink;
}
}
@@ -161,6 +164,9 @@
print OUT "<?\n\$dyndate = ".time().";\n?>";
close(OUT) or die "can't write timestamp.inc: $!\n";
+if (defined $treelink) {
+ rm_f $treelink or print "Could not remove $treelink\n";
+}
### eof
exit 0;
-------------------------------------------------------
SF.Net email is sponsored by: Tell us your software development plans!
Take this survey and enter to win a one-year sub to SourceForge.net
Plus IDC's 2005 look-ahead and a copy of this survey
Click here to start! http://www.idcswdc.com/cgi-bin/survey?id=105hix
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
