Daniel Staal <[EMAIL PROTECTED]> :
:
: I actually tried that, using the following code:
[code sample snipped]
:
: But that doesn't seem to work either.
What do you mean by "doesn't seem to work"?
: (I've tried re-creating the
: HTML::Stream too, or just using the 'global' version.)
: This actually was my first try at it. Again, slide()
: works fine, but slide_() doesn't, even though it gets
: called. Any ideas what I'm doing wrong?
It worked for me. Perhaps something else is wrong:
my $curFile; # The current output file.
slide();
print <$curFile>;
slide_();
sub slide {
open $curFile, $0 or warn "Could not open $0: $!";
}
sub slide_ {
close $curFile;
}
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
