[libinline-java-perl] 32/398: *** empty log message ***
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:42:40 UTC 2015
This is an automated email from the git hooks/post-receive script.
js pushed a commit to tag 0.55
in repository libinline-java-perl.
commit e34dfd9cef2179628ac1a6932ac63bc6e042dae7
Author: patrick <>
Date: Tue Mar 13 14:29:55 2001 +0000
*** empty log message ***
---
Java.pm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/Java.pm b/Java.pm
index 027513d..76675d4 100644
--- a/Java.pm
+++ b/Java.pm
@@ -45,9 +45,11 @@ my $COMMAND_COM =
($^O eq 'MSWin32')&&
(
($ENV{PERL_INLINE_JAVA_COMMAND_COM})||
- ($ENV{COMSPEC} =~ /command\.com/i)||
- ($ENV{COMSPEC} =~ /4dos\.com/i)||
- (`ver` =~ /Win(dows )?(9[58])/)
+ (
+ (defined($ENV{COMSPEC}))&&
+ ($ENV{COMSPEC} =~ /(command|4dos)\.com/i)
+ )||
+ (`ver` =~ /win(dows )?(9[58]|me)/i)
)
) || 0 ;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git
More information about the Pkg-perl-cvs-commits
mailing list