New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
System command starting with environment variable on HP-UX #1065
Comments
From dougw@safeguard.netThis is a bug report for perl from dougw@safeguard.net, A non zero status is returned from the system('tmp_junk=5 ls') and die "Error:$!"; Even though such a command will work from the command tmp_junk=5 ls Site configuration information for perl 5.00503: Configured by dougw at Fri Jan 21 08:43:13 PST 2000. Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration: Locally applied patches: @INC for perl 5.00503: Environment for perl 5.00503: PATH=/home/dougw/bin:/home/dougw/perl/bin:/usr/bin:/opt/ansic/bin:/usr/ccs/b |
From [Unknown Contact. See original ticket]At 16:07 -0800 2000-01-21, Doug Wilson wrote:
It's not HP-specific, or 5.005_03-specific. Here's a one-line fix. Inline Patch--- perl5.005_03/doio.c-as_received Sat Mar 27 17:57:24 1999
+++ perl5.005_03/doio.c Sat Jan 22 18:10:15 2000
@@ -1069,7 +1069,7 @@ do_exec(char *cmd)
if (strnEQ(cmd,"exec",4) && isSPACE(cmd[4]))
goto doshell;
- for (s = cmd; *s && isALPHA(*s); s++) ; /* catch VAR=val gizmo */
+ for (s = cmd; *s && isALNUM_LC(*s); s++) ; /* catch VAR=val gizmo */
if (*s == '=')
goto doshell;
-- Dominic Dunlop |
From [Unknown Contact. See original ticket]Dominic Dunlop writes:
Is not LC locale? Then this is not a fix (set LANG=C), and is a very Ilya |
From [Unknown Contact. See original ticket]At 13:21 -0500 2000-01-22, Ilya Zakharevich wrote:
Good point. There's not an isWORD(), but plain isALNUM() seems to Inline Patch--- perl5.005_03/doio.c-as_received Sat Mar 27 17:57:24 1999
+++ perl5.005_03/doio.c Sat Jan 22 18:10:15 2000
@@ -1069,7 +1069,7 @@ do_exec(char *cmd)
if (strnEQ(cmd,"exec",4) && isSPACE(cmd[4]))
goto doshell;
- for (s = cmd; *s && isALPHA(*s); s++) ; /* catch VAR=val gizmo */
+ for (s = cmd; *s && isALNUM(*s); s++) ; /* catch VAR=val gizmo */
if (*s == '=')
goto doshell;
-- Dominic Dunlop |
From [Unknown Contact. See original ticket]At 22:58 +0100 2000-01-23, Dominic Dunlop wrote:
Here's the corresponding test. Again, against 5.005_03, but also Inline Patch--- perl5.005_03/t/op/exec.t-as_received Fri Aug 7 01:02:14 1998
+++ perl5.005_03/t/op/exec.t Mon Jan 24 10:08:32 2000
@@ -11,7 +11,7 @@
exit(0);
}
-print "1..8\n";
+print "1..10\n";
if ($^O ne 'os2') {
print "not ok 1\n" if system "echo ok \\1"; # shell interpreted
@@ -32,4 +32,11 @@
unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print
-exec "echo","ok","8"; -- |
Migrated from rt.perl.org#2017 (status was 'resolved')
Searchable as RT2017$
The text was updated successfully, but these errors were encountered: