Dear Ladies and Gentlemen,
I am writing to beg your pardon for posting rubbish like this.
On Mon, Jan 17, 2005 at 01:53:27PM +1100, Stanley Hopcroft wrote:
[snip]
>
> It used to work with 5.005.
>
> I think this is unlikely to be a Perl problem (knowing me) but if anyone
> thinks so, I will try and help.
>
> Here's the guts of the debugging stuff in case someone can helpfully
> spot the error.
>
> BEGIN {
> no strict 'refs' ;
> my $indirect_fh = 'ErrorTrap::NEWSTDERR' ;
> open $indirect_fh, '>> ' . EPN_STDERR_LOG
> or die "Can't open '" . EPN_STDERR_LOG . " for append:
> $!" ;
> }
Perl open() has changed considerably from this in contemporary
Perls; this is simply a Perl RTFM (FWIW, open my $fh, ... does the
trick).
Sorry for the noise.
Yours sincerely.
--
Stanley Hopcroft
IP Australia
Ph: (02) 6283 3189 Fax: (02) 6281 1353
PO Box 200 Woden ACT 2606
http://www.ipaustralia.gov.au
--
This message contains privileged and confidential information only
for use by the intended recipient. If you are not the intended
recipient of this message, you must not disseminate, copy or use
it in any manner. If you have received this message in error,
please advise the sender by reply e-mail. Please ensure all
e-mail attachments are scanned for viruses prior to opening or
using.
