HTTP/2 200 cache-control: max-age=43200 server: Combust/Plack (Perl) vary: Accept-Encoding content-encoding: gzip content-length: 2704 content-type: text/html; charset=utf-8 last-modified: Sun, 12 Oct 2025 11:50:08 GMT date: Sun, 12 Oct 2025 11:50:08 GMT strict-transport-security: max-age=15768000 Front page | perl.perl5.porters | Postings from June 2008

Re: my $@ - a proposal

Thread Previous | Thread Next

Yuval Kogman schreef:
> eval {
> local $@;
> die "foo";
> }
>
> warn $@; # eq ''
  { local $@;
    eval {
      die "foo";
    }
    warn $@ if $@;
  }
So probably, eval() should local()-ize $@ in a magical extra block, a
bit like if() does with my():
#!/usr/bin/perl -l
# Name: if-scope.pl
# use strict;
  use warnings;
  my $x = 2;
  $" = "before";
  if ( local $" = "in if()", (my $_x = $x) > 10) {
    local $" = "in if(){}";
    print $_x;
  } else {
    local $" = "in else{}";
    print -$_x;
  }
  print $";
  print $_x;
outputs:
-2
in if()
Use of uninitialized value in print at ./if-scope.pl line 20.
Something else to play with:
#!/usr/bin/perl
# dieritis.pl
use strict;
use warnings;
use Time::HiRes qw/time/;
use Data::Dumper;
sub Q::DESTROY {
    $@ and local $@;
    eval {
        die "died in INNER eval";
    };
    $@ and push @@, [ $@, time, $$, __PACKAGE__.":".__LINE__ ];
}
push @@, [ "__start", time, $$, __PACKAGE__.":".__LINE__ ];
eval {
    my $x = bless [], "Q";
    die "died in OUTER eval";
};
$@ and push @@, [ $@, time, $$, __PACKAGE__.":".__LINE__ ];
chomp $_->[0] for @@;
print Dumper(\@@);
__END__
-- 
Affijn, Ruud
"Gewoon is een tijger."

Thread Previous | Thread Next

• my $@ - a proposal by Yuval Kogman
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by David Nicol
• Re: my $@ - a proposal by Graham Barr
• Re: my $@ - a proposal by David Nicol
• Re: my $@ - a proposal by Mark Mielke
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by Graham Barr
• Re: my $@ - a proposal by Graham Barr
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by Ben Morrow
• Re: my $@ - a proposal by Graham Barr
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by David Nicol
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by David Nicol
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Johan Vromans
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Rafael Garcia-Suarez
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Ben Morrow
• Re: my $@ - a proposal by Elliot Shank
• Re: my $@ - a proposal by Abigail
• Re: my $@ - a proposal by Juerd Waalboer
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Graham Barr
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by Graham Barr
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by David Nicol
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Graham Barr
• Re: my $@ - a proposal by David Nicol
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by Aristotle Pagaltzis
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Raphael_Manfredi
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Raphael_Manfredi
• Re: my $@ - a proposal by Abigail
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Raphael_Manfredi
• Re: my $@ - a proposal by Dr.Ruud
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by Abigail
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by Sean O'Rourke
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by Steffen Mueller
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by David Golden
• Re: my $@ - a proposal by Abigail
• Re: my $@ - a proposal by Aristotle Pagaltzis
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Yuval Kogman
• Re: my $@ - a proposal by Dr.Ruud
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by David Cantrell
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by Moritz Lenz
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by Moritz Lenz
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by Moritz Lenz
• Re: my $@ - a proposal by Sam Vilain
• Re: my $@ - a proposal by Abigail
• Re: my $@ - a proposal by Mark Mielke
• Re: my $@ - a proposal by Aristotle Pagaltzis
• Re: my $@ - a proposal by David Nicol
• Re: my $@ - a proposal by Nicholas Clark
• Re: my $@ - a proposal by David Nicol
• RE: my $@ - a proposal by Jan Dubois
• Re: my $@ - a proposal by David Nicol
• Re: my $@ - a proposal by Reini Urban
• Re: my $@ - a proposal by Dr.Ruud
• Re: my $@ - a proposal by Sam Vilain