| Subject: | Various calls to throw() omitted |
C:\strawberry-perl\perl\site\lib\Iterator>diff -u IO.pm.bak IO.pm
--- IO.pm.bak Wed Jun 13 14:32:27 2007
+++ IO.pm Wed Jun 13 15:05:33 2007
@@ -40,7 +40,7 @@
my $path = shift || Cwd::getcwd();
$path =~ s|/ \z||x; # remove any trailing slash
my $d = new IO::Dir $path;
- Iterator::X::IO_Error (message => qq{Cannot read "$path": $!},
+ Iterator::X::IO_Error->throw(message => qq{Cannot read "$path": $!},
error => $!)
unless $d;
@@ -187,7 +187,7 @@
# Open the file handle.
my $fh = new IO::File ($filename);
- Iterator::X::IO_Error (message => qq{Cannot read "$filename": $!},
+ Iterator::X::IO_Error->throw(message => qq{Cannot read "$filename":
$!},
error => $!)
unless $fh;
@@ -294,7 +294,7 @@
my $block_size = 8192; # somewhat arbitrary
my $fh = IO::File->new ($filename)
- or Iterator::X::IO_Error (message => qq{Cannot read
"$filename": $!},
+ or Iterator::X::IO_Error->throw(message => qq{Cannot read
"$filename": $!},
error => $!);
# Buffer variables