Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Released version 0.43

  • Loading branch information...
commit 12b2948e6ef1d01473f39391cd371eb1eb098359 1 parent b9bf824
@ingydotnet authored
View
7 .gitignore
@@ -1,7 +0,0 @@
-META.yml
-Makefile
-MANIFEST
-blib
-inc
-pm_to_blib
-t/output
View
5 Changes
@@ -1,4 +1,9 @@
---
+version: 0.43
+date: Wed Jul 20 08:34:01 PDT 2011
+changes:
+- Fix directory scalar deref for mst++
+---
version: 0.42
date: Mon Jul 18 11:31:43 PDT 2011
changes:
View
2  lib/IO/All.pm
@@ -13,7 +13,7 @@ use File::Spec();
use Symbol();
use Fcntl;
-our $VERSION = '0.42';
+our $VERSION = '0.43';
our @EXPORT = qw(io);
#===============================================================================
View
5 lib/IO/All/Dir.pm
@@ -191,11 +191,16 @@ sub DESTROY {
#===============================================================================
sub overload_table {
(
+ '${} dir' => 'overload_as_scalar',
'@{} dir' => 'overload_as_array',
'%{} dir' => 'overload_as_hash',
)
}
+sub overload_as_scalar {
+ \ $_[1];
+}
+
sub overload_as_array {
[ $_[1]->all ];
}
View
6 t/overload.t
@@ -1,7 +1,7 @@
-use lib 't', 'lib';
+use lib 't'; #, 'lib';
use strict;
use warnings;
-use Test::More tests => 23;
+use Test::More tests => 24;
use IO_All_Test;
use IO::All;
@@ -73,3 +73,5 @@ ${io('t/mystuff')} . "xxx\n" . ${io('t/mystuff')} > io('t/output/overload1');
$data < io('t/mystuff');
my $cat3 = $data . "xxx\n" . $data;
test_file_contents2('t/output/overload1', $cat3);
+
+is "" . ${io("t")}, "t", "scalar overload of directory (for mst)";
Please sign in to comment.
Something went wrong with that request. Please try again.