On Thu, 28 Feb 2002, Steven M. Klass wrote:
> Heres a simple one
>
> &PrintSummary ("STDOUT", /%runset);
>
> sub PrintSummary {
> $prtout = shift;
> print $prtout "This is a test"
> }
>
> Why doesn't this work?
STDOUT is a filehandle, and has to be handled differently. The safest way
is to pass it as a typelob (there are other ways, but this is the
easiest):
&PrintSummary(*STDOUT, %runset);
and you can do either:
sub PrintSummary {
my $prtout = shift;
...
}
or
sub PrintSummary {
local *FH = shift;
...
}
http://www.chapelperilous.net/
------------------------------------------------------------------------
I don't understand you anymore.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
