Chas Owens
<[EMAIL PROTECTED]
.com> To
"[EMAIL PROTECTED]"
01/27/2006 11:47 <[EMAIL PROTECTED]>
AM cc
beginners perl <beginners@perl.org>
Subject
Re: use of uninitialized value....
> Thanks Jay for the hopefully final wrap up to the uninteded long email
> thread. This was a good thing however b/c
> I learned something new in this wonderful thing called Perl.
> I agree and it make sense to use $SIG{__DIE__} for obvious reasons.
> But in my test code I am getting "Useless use of hash element in void
> context at line 30."
> which is the line that has the $overide->{$error}. But when I comment
> out the mailme call I do not get this warning.
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
>
> sub mailme {
>
> my $sub = shift;
>why aren't you using $sub (which I would rename $message or $error) in
>the body of the message?
> my $msg = MIME::Lite->new(
> From => 'pshrapprd <[EMAIL PROTECTED]>',
> To => 'Derek Smith <[EMAIL PROTECTED]>',
> Subject => 'HRIS FTP Inbound to monster.com had
> problems and or failed!',
> Type => 'multipart/related');
>
> #$msg->attach(
> #Type => 'TEXT',
> #Disposition => 'attachment',
> #Path => "$ftplog",
> #Filename => "$ftplog");
> $msg->send;
> }
>
>
>
>
> my $overide = $SIG{__DIE__}; ## get error handler currently assigned to
> die()
> $SIG{__DIE__} = sub {
> my $error = shift;
>$override is a coderef, not a hashref. That is if it is set at all.
>If no handler has been previously registered with __DIE__ then it will
>be blank. That is why there is a ref check. Your problem is that you
>are using curly braces {} instead of parentheses ().
> $overide->{$error} if (ref $overide);
> mailme($error);
> };
>
> open (LOG, "+</var/log/derek") or die "Was unable to open file: $!";
> close (LOG);
BEGIN NEW RESPONSE:
no reason I was just testing so yes I am using $error passed to my mail
routine.
understood override is a code reference which explains ( ) as opposed to {
}
Kudos to Chas as he has helped quir a bit!
thanks again dude!
derek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
