You are viewing a plain text version of this content. The canonical link for it is here.
Posted to jetspeed-dev@portals.apache.org by sh...@apache.org on 2005/02/27 22:59:28 UTC
cvs commit: jakarta-jetspeed-2/portals-bridges/perl/src/java/org/apache/portals/bridges/perl PerlPortlet.java
shinsuke 2005/02/27 13:59:28
Modified: portals-bridges/perl/src/java/org/apache/portals/bridges/perl
PerlPortlet.java
Log:
can get perl path from the first line without space
Revision Changes Path
1.6 +10 -2 jakarta-jetspeed-2/portals-bridges/perl/src/java/org/apache/portals/bridges/perl/PerlPortlet.java
Index: PerlPortlet.java
===================================================================
RCS file: /home/cvs/jakarta-jetspeed-2/portals-bridges/perl/src/java/org/apache/portals/bridges/perl/PerlPortlet.java,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- PerlPortlet.java 4 Feb 2005 01:07:19 -0000 1.5
+++ PerlPortlet.java 27 Feb 2005 21:59:28 -0000 1.6
@@ -297,7 +297,15 @@
int ix = lnExecutable.indexOf('!');
if ( ix != -1 && px != -1 )
{
- perlExecutable = lnExecutable.substring(ix+1, lnExecutable.indexOf(' ',ix));
+ int ex = lnExecutable.indexOf(' ',ix);
+ if ( ex >= 0 )
+ {
+ perlExecutable = lnExecutable.substring(ix+1, ex);
+ }
+ else
+ {
+ perlExecutable = lnExecutable.substring(ix+1);
+ }
}
}
//Close file
---------------------------------------------------------------------
To unsubscribe, e-mail: jetspeed-dev-unsubscribe@jakarta.apache.org
For additional commands, e-mail: jetspeed-dev-help@jakarta.apache.org