Re^2: How do I make the garbage collector throw an exception when it fails to auto-close a filehandle?

Yah, I’m aware of the concept. I would use it (more readily than a special IO class, possibly, although my opinion on that changes every other day), but for a single close $fh or die "Couldn't close: $!" statement it just doesn’t seem worthwhile. It’s maddening – it’s a simple single statement whose absence is not worth complicating the code for, but it’s still annoying to have to write it, and there’s so little missing to make it unnecessary…

Makeshifts last the longest.

Comment on Re^2: How do I make the garbage collector throw an exception when it fails to auto-close a filehandle?

Replies are listed 'Best First'.
Re^3: How do I make the garbage collector throw an exception when it fails to auto-close a filehandle? by ikegami (Patriarch) on Jan 14, 2007 at 06:37 UTC
Nevermind. `die` in destrutor. Doesn't work. `use strict; use warnings; use ReleaseAction qw( on_release ); $\| = 1; sub something { my $closer = on_release { print "on_release enter\n"; die("test"); print "on_release exit\n"; }; } print "pre\n"; something(); print "post\n";` [download] outputs `pre on_release enter (in cleanup) test at script.pl line 11. post` [download] Tested on 5.6.1 & 5.8.8	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: How do I make the garbage collector throw an exception when it fails to auto-close a filehandle?
by ikegami (Patriarch) on Jan 14, 2007 at 06:37 UTC

Nevermind. die in destrutor. Doesn't work.

use strict;
use warnings;

use ReleaseAction qw( on_release );

$| = 1;

sub something {
   my $closer = on_release {
      print "on_release enter\n";
      die("test");
      print "on_release exit\n";
   };
}

print "pre\n";
something();
print "post\n";
[download]

outputs

pre
on_release enter
        (in cleanup) test at script.pl line 11.
post
[download]

Tested on 5.6.1 & 5.8.8

[reply]
[d/l]
[select]