In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c2f7c0b6d5a35f13947e3a4bde995fd56bf6a5ae?hp=65169990ec2fa183dd798b11e833db0f15b2dc24>
- Log -----------------------------------------------------------------
commit c2f7c0b6d5a35f13947e3a4bde995fd56bf6a5ae
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri Aug 26 06:37:05 2016 -0700
Increase $Filter::Simple::VERSION to 0.93
M dist/Filter-Simple/lib/Filter/Simple.pm
commit 8bc40f3a4ebf6598490a732472dae2946419dbb7
Author: Ricardo SIGNES <r...@cpan.org>
Date: Fri Aug 26 06:36:09 2016 -0700
[perl #107726] Filter::Simple: âuseâ and then ânoâ
Filter::Simple was erroneously signalling eof if it encountered a
âno MyFilterâ right after âuseâ:
use MyFilter;
no MyFilter;
In this case it should simply not filter anything.
The reason for the bug was that the âwhile ($status = filter_read())â
loop in Filter::Simple::gen_filter_import was not incrementing $count
(a variable used basically as a boolean to remember whether we are
still getting input from the file) when finding the terminator (no
MyFilter). So it would conclude after the loop that the file had come
to an end and simply return 0.
[Commit message written by the committer.]
M dist/Filter-Simple/lib/Filter/Simple.pm
commit 7e9e80a75f011c68de21e7e03a01a526d933919b
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri Aug 26 06:20:05 2016 -0700
[perl #107726] Test for Filter::Simple and ânoâ
use MyFilter;
no MyFilter;
does not work. A fix is forthcoming.
M MANIFEST
A dist/Filter-Simple/t/no.t
-----------------------------------------------------------------------
Summary of changes:
MANIFEST | 1 +
dist/Filter-Simple/lib/Filter/Simple.pm | 3 ++-
dist/Filter-Simple/t/no.t | 13 +++++++++++++
3 files changed, 16 insertions(+), 1 deletion(-)
create mode 100644 dist/Filter-Simple/t/no.t
diff --git a/MANIFEST b/MANIFEST
index 5e34054..195a6cb 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3348,6 +3348,7 @@ dist/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm
Helper file for Filter::Si
dist/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm Helper file for
Filter::Simple tests
dist/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm Helper file for
Filter::Simple tests
dist/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm Helper file for
Filter::Simple tests
+dist/Filter-Simple/t/no.t See if
Filter::Simple works
dist/I18N-Collate/lib/I18N/Collate.pm Routines to do strxfrm-based
collation
dist/I18N-Collate/t/I18N-Collate.t See if I18N::Collate works
dist/I18N-LangTags/ChangeLog I18N::LangTags
diff --git a/dist/Filter-Simple/lib/Filter/Simple.pm
b/dist/Filter-Simple/lib/Filter/Simple.pm
index 8212919..44a5f73 100644
--- a/dist/Filter-Simple/lib/Filter/Simple.pm
+++ b/dist/Filter-Simple/lib/Filter/Simple.pm
@@ -4,7 +4,7 @@ use Text::Balanced ':ALL';
use vars qw{ $VERSION @EXPORT };
-$VERSION = '0.92';
+$VERSION = '0.93';
use Filter::Util::Call;
use Carp;
@@ -198,6 +198,7 @@ sub gen_filter_import {
if ($terminator{terminator} &&
m/$terminator{terminator}/) {
$lastline = $_;
+ $count++;
last;
}
$data .= $_;
diff --git a/dist/Filter-Simple/t/no.t b/dist/Filter-Simple/t/no.t
new file mode 100644
index 0000000..8980eae
--- /dev/null
+++ b/dist/Filter-Simple/t/no.t
@@ -0,0 +1,13 @@
+BEGIN {
+ unshift @INC, 't/lib/';
+}
+
+print "1..2\n";
+
+use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail";
+no Filter::Simple::FilterTest;
+
+sub pass { print "ok ", $_[0], "\n" }
+
+print "ok 1\n";
+("pa"."ss")->(2);
--
Perl5 Master Repository
