Better error message when config.sh is missing
authorFrank Lichtenheld <frank@lichtenheld.de>
Sun, 12 Nov 2006 20:59:51 +0000 (20:59 +0000)
committerFrank Lichtenheld <frank@lichtenheld.de>
Sun, 12 Nov 2006 20:59:51 +0000 (20:59 +0000)
(Similar fix to DB.pm)

lib/Packages/Config.pm

index 43ea37ad059fbe1543332c53b057ab4c21a83342..e749735c3ae4229c46420d8c4b04bf0337ebddda 100644 (file)
@@ -27,9 +27,9 @@ our $config_read_time;
 
 sub init {
     my ($dir) = @_;
-    my $modtime = (stat( "$dir/config.sh" ))[9];
+    my $modtime = (stat( "$dir/config.sh" ))[9] || 0;
     $config_read_time ||= 0;
-    if ($modtime > $config_read_time) {
+    if ($modtime >= $config_read_time) {
        if (!open (C, '<', "$dir/config.sh")) {
            error( "Internal: Cannot open configuration file." );
        }