[libcatmandu-perl] 67/101: typetest iterables given to fix

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcatmandu-perl.

commit 3e72f0a361f57c7162057659078d35f761f56ce7
Author: Nicolas Steenlant <nicolas.steenlant at ugent.be>
Date:   Thu Feb 4 15:43:03 2016 +0100

    typetest iterables given to fix
---
 Build.PL            | 4 ++--
 lib/Catmandu/Fix.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Build.PL b/Build.PL
index 946832e..aae0a0a 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,5 +1,5 @@
 
-# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.039.
+# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.041.
 use strict;
 use warnings;
 
@@ -15,7 +15,7 @@ my %module_build_args = (
   },
   "dist_abstract" => "a data toolkit",
   "dist_author" => [
-    "Nicolas Steenlant <nicolas.steenlant\@ugent.be>"
+    "Nicolas Steenlant, C<< <nicolas.steenlant at ugent.be> >>"
   ],
   "dist_name" => "Catmandu",
   "dist_version" => "0.9505",
diff --git a/lib/Catmandu/Fix.pm b/lib/Catmandu/Fix.pm
index 29fe1f9..096829a 100644
--- a/lib/Catmandu/Fix.pm
+++ b/lib/Catmandu/Fix.pm
@@ -105,7 +105,7 @@ sub fix {
         return $d;
     }
 
-    if (is_instance($data)) {
+    if (is_instance($data) && is_able($data, 'does') && $data->does('Catmandu::Iterable')) {
         return $data->map(sub { $fixer->($_[0]) })
                     ->reject(sub { $self->_is_reject($_[0]) });
     }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git