Changeset 6444

Timestamp:

Feb 16, 2006, 5:22:01 PM (20 years ago)

Author:

jhoblitt

Message:

fix config.pl slurping

File:

• trunk/glueforge/glueforge.in (modified) (2 diffs)

trunk/glueforge/glueforge.in

@@ -3 +3 @@
 # Copyright (C) 2005-2006  Joshua Hoblitt
 #
-# $Id: glueforge.in,v 1.44 2006-02-17 03:17:56 jhoblitt Exp $
+# $Id: glueforge.in,v 1.45 2006-02-17 03:22:01 jhoblitt Exp $
 
 use strict;
@@ -50 +50 @@
 $output = $data->{pkg_name} unless defined $output;
 
-my %tt;
+my $ttconfig;
 {
     # slurp config.pl
     open(my $fh, "$template/config.pl")
         or die "can't open $template/config.pl: $!";
-    my $ttconfig = do {local $/; <$fh>};
+    $ttconfig = do {local $/; <$fh>};
     close($fh) or die "can't close $template/config.pl: $!";
 }
 
 # configure template file paths
+my %tt;
 eval $ttconfig;
 die "can't eval contents of $template/config.pl: $@" if $@;