stas 02/04/02 21:17:07
Modified: bin build makeindex
Log:
- a better way to adjust ENV
Submitted by: Per Einar Ellefsen <[EMAIL PROTECTED]>
Revision Changes Path
1.3 +2 -2 modperl-docs/bin/build
Index: build
===================================================================
RCS file: /home/cvs/modperl-docs/bin/build,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- build 5 Jan 2002 19:38:51 -0000 1.2
+++ build 3 Apr 2002 05:17:07 -0000 1.3
@@ -10,9 +10,9 @@
# use the local lib for testing + any env vars
my $perl5lib = $ENV{PERL5LIB} || $ENV{PERLLIB};
-my $lib = join ":", grep defined($_), "$Bin/../lib", $perl5lib;
+$ENV{PERL5LIB} = join ":", grep defined($_), "$Bin/../lib", $perl5lib;
# forward the @ARGV
-my $command = "env PERL5LIB=$lib $Bin/docset_build @ARGV $Bin/..
src/config.cfg";
+my $command = "$Bin/docset_build @ARGV $Bin/.. src/config.cfg";
#print $command;
system $command;
1.3 +1 -1 modperl-docs/bin/makeindex
Index: makeindex
===================================================================
RCS file: /home/cvs/modperl-docs/bin/makeindex,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- makeindex 22 Mar 2002 11:11:30 -0000 1.2
+++ makeindex 3 Apr 2002 05:17:07 -0000 1.3
@@ -47,7 +47,7 @@
# index
my $command = "$swish_binary -S prog -c swish.conf";
#print $command;
-system($command);
+CORE::system($command);
chdir $cwd;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
