The following bit of code:
use Tk;
use strict;
.
.
.
my $topl = $mw -> Toplevel(-title => 'File Selection');
my $fr1 = $topl -> Frame -> pack;
$outfile = $fr1 -> getSaveFile(-filetypes => $types);
warn "Over Write?";
open OUTFILE, ">$outfile";
works and pops up a warning when an attempt is made to open an existing
file but, of course, also writes the warning to STDERR. I really just
want the popup caution but I only get it when the warn statement is
included.
Should I just redirect the output for STDERR to oblivion or is there a
neater way to do this?
Tom
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
