[libinline-java-perl] 32/398: *** empty log message ***

[Jonas Smedegaard]

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