I'm converting a TCL script to perl.
The original script had a line that said this:
if {[catch {exec rsh $linuxMachine cd $pwd/test/c/$testName; \
make $makeparam ! log/make.log} result]} { ;# exec error
error \n Can't execute make:\n '$result'\n\n
which I translated into this
On Tuesday, March 25, 2003, at 03:31 PM, [EMAIL PROTECTED] wrote:
my $make_command =
rsh $linuxMachine
.cd $pwd/test/c/$testName;
.make $makeparam ! log/make.log;
my $retval = syscmd($make_command);
if ($retval)
when I run the perl version, I get this:
sh: !:
On Tue, Mar 25, 2003 at 03:31:29PM -0500, [EMAIL PROTECTED] wrote:
I'm converting a TCL script to perl.
The original script had a line that said this:
if {[catch {exec rsh $linuxMachine cd $pwd/test/c/$testName; \
make $makeparam ! log/make.log} result]} { ;# exec error
error
* Greg London GregLondon at oaktech.com [2003-03-25 15:31]:
The original script had a line that said this:
if {[catch {exec rsh $linuxMachine cd $pwd/test/c/$testName; \
make $makeparam ! log/make.log} result]} { ;# exec error
error \n Can't execute make:\n '$result'\n\n
To: mongers of perl
Subject: [Boston.pm] tcl-perl-unix problem
I'm converting a TCL script to perl.
The original script had a line that said this:
if {[catch {exec rsh $linuxMachine cd $pwd/test/c/$testName; \
make $makeparam ! log/make.log} result]} { ;# exec error
error \n