[siesta-commit] siesta Makefile.PL,1.18,1.19

[prev] [thread] [next] [lurker] [Date index for 2002/09/12]

From: clampr
Subject: [siesta-commit] siesta Makefile.PL,1.18,1.19
Date: 14:16 on 12 Sep 2002
Update of /cvsroot/siesta/siesta
In directory usw-pr-cvs1:/tmp/cvs-serv25345

Modified Files:
	Makefile.PL 
Log Message:
make Siesta::Config a generated file

Index: Makefile.PL
===================================================================
RCS file: /cvsroot/siesta/siesta/Makefile.PL,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Makefile.PL	12 Sep 2002 12:55:31 -0000	1.18
+++ Makefile.PL	12 Sep 2002 13:16:56 -0000	1.19
@@ -1,4 +1,18 @@
 use ExtUtils::MakeMaker;
+
+my $db = "siesta.db";
+
+open(IN,  "<lib/Siesta/Config.pm.in")
+  or die "couldn't open Config.pm.in: $!";
+open(OUT, ">lib/Siesta/Config.pm")
+  or die "couldn't open Config.pm for write: $!";
+while (<IN>) {
+    s/@@DB@@/$db/;
+    print OUT $_;
+}
+close IN  or die "error closing Config.pm.in: $!";
+close OUT or die "error closing Config.pm: $!";
+
 WriteMakefile(
               NAME         => "Siesta",
               VERSION_FROM => "lib/Siesta.pm",



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52