Re: Re: Problems with unopened filehandle after upgrade to ActivePerl 5.6.1

Try changing this line:

$self->{alog} = \*LOGFILE;
[download]

To this:

$self->{alog} = *LOGFILE;
[download]

And let me know if it works....

-Blake

Comment on Re: Re: Problems with unopened filehandle after upgrade to ActivePerl 5.6.1 Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Problems with unopened filehandle after upgrade to ActivePerl 5.6.1 by Flame (Deacon) on Jan 11, 2002 at 09:08 UTC
That did it, I don't understand why though... did they change something that I didn't catch in the docs? It was always working fine like that before... `-----BEGIN GEEK CODE BLOCK----- Version: 3.12 GIT d- s:++ a--- C++++ UL P+++>++++ L+ E- W++>+++ N !o K- w+ O---- M-- V-- PS PE Y- PGP t++(+++) 5(+++)++++ X R+@ tv+ b+++ DI+ D- G e->+++ h! r-- y- ------END GEEK CODE BLOCK------` Translate "Weird things happen, get used to it." Flame ~ Lead Programmer: GMS	[reply]
Re4: Problems with unopened filehandle after upgrade to ActivePerl 5.6.1 by blakem (Monsignor) on Jan 11, 2002 at 14:36 UTC
No idea why it worked... my typeglob-fu is somewhat weak. I just happened to notice it while fiddling around with your example. Here are some smallest-case scenerios: `#### in 5.6.1 F works, but \F fails % perl5.6.1 -we'{local F; $tmp=F; open F,">out"} print $tmp $tmp'; % cat out main::F % perl5.6.1 -we'{local F; $tmp=\*F; open F,">out"} print $tmp $tmp'; print() on unopened filehandle F at -e line 1.` [download] -Blake	[reply] [d/l]