Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4610/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Previous checkin omitted a few lines of comments
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.559
retrieving revision 1.560
diff -u -d -r1.559 -r1.560
--- Base.pm 15 Mar 2006 02:23:00 -0000 1.559
+++ Base.pm 15 Mar 2006 02:52:36 -0000 1.560
@@ -339,7 +339,10 @@
# interpreter, on other it may contain a relative path, or simply
# 'perl'. This can also vary depending on whether a path was supplied
# when perl was invoked. Additionally, the value in $^X may omit the
-# executable extension on platforms that use one. It's a
+# executable extension on platforms that use one. It's a fatal error
+# if the interpreter can't be found because it can result in undefined
+# behavior by routines that depend on it (generating errors or
+# invoking the wrong perl.
sub find_perl_interpreter {
my $proto = shift;
my $c = ref($proto) ? $proto->config : \%Config::Config;
@@ -406,7 +409,7 @@
}
# We've tried all alternatives, and didn't find a perl that matches
- # our configuration. Throw an exception, and list alternative we tried.
+ # our configuration. Throw an exception, and list alternatives we tried.
my @paths = map File::Basename::dirname($_), @potential_perls;
die "Can't locate the perl binary used to run this script " .
"in (@paths)\n";
|
