| Subject: | IO::Easy 0.16 bug |
| Date: | Tue, 24 Jul 2012 00:14:04 +1100 |
| To: | bug-io-easy [...] rt.cpan.org |
| From: | - Кирилл <kitt-vl [...] ya.ru> |
Hi! I found some problems with this package:
IO::Easy->new ('.')->as_dir->current
returns a
0 .=HASH(0x1e0c3e8)
'path' => '/some/path'
I think need some patch here:
IO::Easy::new(/usr/local/share/perl/5.10.1/IO/Easy.pm:69):
69: my $self = bless {%$args, path => $path}, $class;
66: my $path = shift;
67: my $args = shift || {};
68
69 my $self = bless {%$args, path => $path}, $class;
replace line 69 to
my $self = bless {%$args, path => $path}, ref $class || $class;
Bug tested and reproduced well on portable strawberry perl 5.14 on WinXP SP3 and perl 5.10 Ubuntu Server 10.04 LTS (uname -a: Linux 2.6.32-41-server #91-Ubuntu SMP Wed Jun 13 11:58:56 UTC 2012 x86_64 GNU/Linux )