Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20365
Modified Files:
ChangeLog Package.pm
Log Message:
Obey flock when reading db files via Storable
Index: Package.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Package.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- Package.pm 12 Oct 2004 19:56:48 -0000 1.79
+++ Package.pm 13 Oct 2004 03:40:26 -0000 1.80
@@ -350,11 +350,11 @@
}
}
- # If the index is not outdated, we can use it, and thus safe a
lot of time
+ # If the index is not outdated, we can use it, and thus save a
lot of time
if (not $db_outdated) {
- $packages =
Storable::retrieve("$basepath/var/db/fink.db");
+ $packages =
Storable::lock_retrieve("$basepath/var/db/fink.db");
}
- $aptdb = Storable::retrieve("$basepath/var/db/finkapt.db");
+ $aptdb =
Storable::lock_retrieve("$basepath/var/db/finkapt.db");
}
}
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.713
retrieving revision 1.714
diff -u -d -r1.713 -r1.714
--- ChangeLog 12 Oct 2004 19:56:47 -0000 1.713
+++ ChangeLog 13 Oct 2004 03:40:26 -0000 1.714
@@ -1,3 +1,7 @@
+2004-10-12 Daniel Macks <[EMAIL PROTECTED]>
+
+ * Package.pm: Obey flock when reading db files via Storable
+
2004-10-12 Christian Schaffner <[EMAIL PROTECTED]>
* Engine.pm: Implement 'UseBinaryDist' option that causes fink
-------------------------------------------------------
This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
Use IT products in your business? Tell us what you think of them. Give us
Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
http://productguide.itmanagersjournal.com/guidepromo.tmpl
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
