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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
