Changeset 5749 for inc

Timestamp:

07/22/05 16:11:20 (3 years ago)

Author:

Aankhen

svk:copy_cache_prev:

7758

Message:

* PugsBuild::Config: temporary workaround for config.yml error.

Files:

• inc/PugsBuild/Config.pm (modified) (1 diff)

inc/PugsBuild/Config.pm

@@ -36 +36 @@
     my($class, $filename) = @_;
     my $stream;
-    open my $fh, ($filename ||= "config.yml") or die "open: $filename: $!";
+    my $fh;
+    
+    unless (open $fh, ($filename ||= "config.yml")) {
+        if (-e $filename) { die "open: $!"; } # real error
+        
+        # Makefile.PL uses PugsBuild::Config, which needs to read config.yml.
+        # However, config.yml is generated by a Makefile target.
+        # This whole block is a temporary workaround for the problem.
+        require File::Copy;
+        
+        File::Copy::copy ('util/config-template.yml', 'config.yml') or die "Copy failed";
+        warn "Default build config file created. Edit your settings in config.yml.";
+        
+        open $fh, "config.yml" or die "open: $!";
+    };
+    
     { local $/; $stream = <$fh> }
     my $conf = $YAML->load($stream);