Oops...meant to send this to the group.
-----Original Message-----
From: Gibbs Tanton - tgibbs
Sent: Wednesday, September 26, 2001 1:31 PM
To: 'Andrew Kuchling '; Gibbs Tanton - tgibbs
Subject: RE: new assemble.pl
Thanks! Applied.
-----Original Message-----
From: Andrew Kuchling
To: Gibbs Tanton - tgibbs
Sent: 9/26/2001 12:52 PM
Subject: Re: new assemble.pl
On Wed, Sep 26, 2001 at 12:43:01PM -0500, Gibbs Tanton - tgibbs wrote:
>I tested this on Tru64, SunOS 5.8, and CygWin. It worked on each of
those
>so I went ahead and committed it. If you have any problems, let me
know and
>I will fix or revert.
One quick fix: could you have error() return a non-zero exit status?
I have a script that runs assemble.pl and needs to figure out if
it compiled successfully or not.
--amk
Index: assemble.pl
===================================================================
RCS file: /home/perlcvs/parrot/assemble.pl,v
retrieving revision 1.45
diff -C2 -r1.45 assemble.pl
*** assemble.pl 2001/09/24 16:01:58 1.45
--- assemble.pl 2001/09/24 21:40:01
***************
*** 440,444 ****
my($message,$file,$line)=@_;
print STDERR "Error ($file:$line): $message\n";
! exit;
}
--- 440,444 ----
my($message,$file,$line)=@_;
print STDERR "Error ($file:$line): $message\n";
! exit 1;
}
