merged

lib/IO/All.pm

@@ -1,6 +1,6 @@
 use strict; use warnings;
 package IO::All;
-our $VERSION = '0.86';
+our $VERSION = '0.86.1';
 
 require Carp;
 # So one can use Carp::carp "$message" - without the parenthesis.
@@ -155,6 +155,7 @@ use overload '<<'  => '_overload_left_bitshift';
 use overload '>>'  => '_overload_right_bitshift';
 use overload '<'   => '_overload_less_than';
 use overload '>'   => '_overload_greater_than';
+use overload 'cmp' => '_overload_cmp';
 use overload '${}' => '_overload_string_deref';
 use overload '@{}' => '_overload_array_deref';
 use overload '%{}' => '_overload_hash_deref';
@@ -244,6 +245,13 @@ sub _get_argument_type {
     return $argument->type || 'unknown';
 }
 
+sub _overload_cmp {
+    my ($self, $other, $swap) = @_;
+    $self = defined($self) ? $self.'' : $self;
+    ($self, $other) = ($other, $self) if $swap;
+    $self cmp $other;
+}
+
 sub _overload_stringify {
     my $self = shift;
     my $name = $self->pathname;

test/overload.t

@@ -1,6 +1,6 @@
 use strict; use warnings;
 my $t; use lib ($t = -e 't' ? 't' : 'test');
-use Test::More tests => 24;
+use Test::More tests => 26;
 use IO_All_Test;
 use IO::All;
 
@@ -86,5 +86,9 @@ test_file_contents2(o_dir() . '/overload1', $cat3);
 
 is "" . ${io($t)}, $t, "scalar overload of directory (for mst)";
 
+#because it broke lots of modules via File::Spec::Win32::catfile/catdir
+my ($f1,$f2) = io->dir( o_dir() )->all;
+ok $f1 ne "", 'string operations overload';
+ok $f1 cmp $f2, 'string operations overload';
 
 del_output_dir();