Update of /cvsroot/fink/fink
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv13330
Modified Files:
bootstrap.pl
Log Message:
make bootstrap.sh a perl solution
Index: bootstrap.pl
===================================================================
RCS file: /cvsroot/fink/fink/bootstrap.pl,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- bootstrap.pl 30 May 2006 15:29:04 -0000 1.78
+++ bootstrap.pl 15 Jun 2006 19:03:16 -0000 1.79
@@ -52,14 +52,33 @@
)."\n\n";
}
-### check if we are unharmed
+### patch FinkVersion.pm.in ###
-print "Checking package...";
my ($homebase, $file);
-
$homebase = $FindBin::RealBin;
chdir $homebase;
+my $output = "$FindBin::RealBin/perlmod/Fink/FinkVersion.pm";
+my $outputhandle = IO::Handle->new();
+my $input = "$output" . ".in";
+my $inputhandle = IO::Handle->new();
+chomp(my $version = `cat VERSION`);
+
+open($inputhandle, "<$input") or die ("cannot open $input for reading");
+open($outputhandle, ">$output") or die ("cannot open $output for writing");
+
+while (defined ($_=<$inputhandle>))
+{
+ s/[EMAIL PROTECTED]@/$version/g;
+ print $outputhandle "$_";
+}
+
+close $inputhandle;
+close $outputhandle;
+
+### check if we are unharmed ###
+
+print "Checking package...";
use lib "$FindBin::RealBin/perlmod";
require Fink::Bootstrap;
import Fink::Bootstrap qw(&check_host &check_files);
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
