Re: [perl-win32-gui-users] Uninitialized value message

[Eric Bennett]

On Thu, 15 Mar 2001, Tom Allebrandi wrote:

>       Use of uninitialized value in subroutine entry at <file> line 
> <something>

Try adding this to your script:

sub warn_unless_win32_dialog_warning {
   my ( $warning_message ) = @_;

   my $hide_message = qr/^Use of uninitialized value in subroutine entry/;
 
   print STDERR $warning_message  unless $warning_message =~ $hide_message;
}

$SIG{'__WARN__'} = \&warn_unless_win32_dialog_warning;

   - Eric B.

--
"Pasteurized From Concentrate"