Skip to content
Browse files

Released version 0.43

  • Loading branch information...
1 parent b9bf824 commit 12b2948e6ef1d01473f39391cd371eb1eb098359 @ingydotnet committed
Showing with 15 additions and 10 deletions.
  1. +0 −7 .gitignore
  2. +5 −0 Changes
  3. +1 −1 lib/IO/All.pm
  4. +5 −0 lib/IO/All/Dir.pm
  5. +4 −2 t/overload.t
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)";

0 comments on commit 12b2948

Please sign in to comment.
Something went wrong with that request. Please try again.