[libcatmandu-perl] 63/101: fix fixing iterable
Jonas Smedegaard
dr at jones.dk
Tue Feb 23 13:43:56 UTC 2016
This is an automated email from the git hooks/post-receive script.
js pushed a commit to branch master
in repository libcatmandu-perl.
commit f8cf8a8cf9d238720362965f511c8765e2c126c3
Author: Nicolas Steenlant <nicolas.steenlant at ugent.be>
Date: Thu Feb 4 15:26:26 2016 +0100
fix fixing iterable
---
lib/Catmandu/Fix.pm | 2 +-
lib/Catmandu/Fix/import.pm | 3 ++-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/Catmandu/Fix.pm b/lib/Catmandu/Fix.pm
index 46744ba..abab0a3 100644
--- a/lib/Catmandu/Fix.pm
+++ b/lib/Catmandu/Fix.pm
@@ -105,7 +105,7 @@ sub fix {
return $d;
}
- if (is_instance($data) && $data->DOES('Catmandu::Iterable')) {
+ if (is_instance($data)) {
return $data->map(sub { $fixer->($_[0]) })
->reject(sub { $self->_is_reject($_[0]) });
}
diff --git a/lib/Catmandu/Fix/import.pm b/lib/Catmandu/Fix/import.pm
index cbc60f3..0a26957 100644
--- a/lib/Catmandu/Fix/import.pm
+++ b/lib/Catmandu/Fix/import.pm
@@ -51,7 +51,8 @@ sub emit {
$perl .= $fixer->emit_delete_key($var, $key);
}
$perl .= "}";
- }$perl;
+ }
+ $perl;
});
});
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git
More information about the Pkg-perl-cvs-commits
mailing list