in reply to die not exiting Application

Not possible 
sub push_report {
  my $idx = shift;
  $file= "/tmp/test123";
  open(IN, $file) || die "Couldn't open `$file'";
}
__END__
Global symbol "$file" requires explicit package name at - line 4.
Global symbol "$file" requires explicit package name at - line 5.
Global symbol "$file" requires explicit package name at - line 5.
Execution of - aborted due to compilation errors.

[download]

Replies are listed 'Best First'.
Re^2: die not exiting Application
by andreas1234567 (Vicar) on Apr 16, 2008 at 07:33 UTC
    Not possible
    It is possible indeed if strict is not used. 
    $ perl -v

This is perl, v5.10.0 built for i686-linux

[...]

$ perl
sub push_report {
  my $idx = shift;
  $file= "/tmp/test123";
  open(IN, $file) || die "Couldn't open `$file'";
}
__END__
$

    [download]
    --
    When you earnestly believe you can compensate for a lack of skill by doubling your efforts, there's no end to what you can't do. [1]
[reply]
[d/l]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom