| Subject: | CORE::die should be wrapped |
HI,
the default error_handler ( \&CORE::die ) looks wrong to me. Since I can not call it
Here is my prove:
borisz$ perl -e '$x = \&CORE::die; $x->()'
Undefined subroutine &CORE::die called at -e line 1.
And a fix is attached.
--
Boris
| Subject: | file_next.patch |
diff -Nur a/File-Next-0.26/Next.pm b/File-Next-0.26/Next.pm
--- a/File-Next-0.26/Next.pm 2006-09-02 17:10:44.000000000 +0200
+++ b/File-Next-0.26/Next.pm 2006-09-05 11:12:57.000000000 +0200
@@ -132,7 +132,7 @@
my %files_defaults = (
file_filter => sub{1},
descend_filter => sub {1},
- error_handler => \&CORE::die,
+ error_handler => sub { CORE::die @_ },
);
sub files {