On Mar 1, Sethi, Pradeep said:
>I have this in my code :
>
>local $SIG{__DIE__} = \&die_handler;
>
>sub die_handler {
> my (@vars)=@_;
> print STDERR "\nfirst : " . $vars[0];
> print STDERR "\nsecond : " . $vars[1];
>}
>
>if i give :
>
>die ('goo','foo','bar');
>
>Then I get the output :
>
>first : goofoobar at out.pl line 233.
>
>second :
>
>I want to have the three arguments in an array.
Sorry, but the arguments to die() are concatenated. I don't think there's
a workaround, apart from writing your own function to use instead of
die().
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
