Compare commits
No commits in common. 'c8-stream-5.24' and 'c9' have entirely different histories.
c8-stream-
...
c9
@ -1 +1 @@
|
||||
SOURCES/Filter-Simple-0.91.tar.gz
|
||||
SOURCES/Filter-Simple-0.94.tar.gz
|
||||
|
||||
@ -1 +1 @@
|
||||
a89562327c3b0cc054573c7bf71825102032a3dc SOURCES/Filter-Simple-0.91.tar.gz
|
||||
3a014fa2187ff4ec5cc626126dfb0cea92b0fbb2 SOURCES/Filter-Simple-0.94.tar.gz
|
||||
|
||||
@ -1,40 +0,0 @@
|
||||
From ae5f5addc848a6e80707f625db58cbb9a633aea7 Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Wed, 6 May 2015 10:10:46 +0200
|
||||
Subject: [PATCH] Upgrade to 0.92
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
lib/Filter/Simple.pm | 6 +++---
|
||||
1 file changed, 3 insertions(+), 3 deletions(-)
|
||||
|
||||
diff --git a/lib/Filter/Simple.pm b/lib/Filter/Simple.pm
|
||||
index 4b15e55..8212919 100644
|
||||
--- a/lib/Filter/Simple.pm
|
||||
+++ b/lib/Filter/Simple.pm
|
||||
@@ -4,7 +4,7 @@ use Text::Balanced ':ALL';
|
||||
|
||||
use vars qw{ $VERSION @EXPORT };
|
||||
|
||||
-$VERSION = '0.91';
|
||||
+$VERSION = '0.92';
|
||||
|
||||
use Filter::Util::Call;
|
||||
use Carp;
|
||||
@@ -119,8 +119,8 @@ sub gen_std_filter_for {
|
||||
}
|
||||
if ($type =~ /^code/) {
|
||||
my $count = 0;
|
||||
- local $placeholder = qr/\Q$;\E(\C{4})\Q$;\E/;
|
||||
- my $extractor = qr/\Q$;\E(\C{4})\Q$;\E/;
|
||||
+ local $placeholder = qr/\Q$;\E(.{4})\Q$;\E/s;
|
||||
+ my $extractor = qr/\Q$;\E(.{4})\Q$;\E/s;
|
||||
$_ = join "",
|
||||
map { ref $_ ? $;.pack('N',$count++).$; : $_ }
|
||||
@components;
|
||||
--
|
||||
2.1.0
|
||||
|
||||
@ -0,0 +1,54 @@
|
||||
From 593fb3d6c0fcff266729d1d497d931e7e3ad9a83 Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 24 May 2018 10:20:55 +0200
|
||||
Subject: [PATCH] Upgrade to 0.95
|
||||
|
||||
---
|
||||
lib/Filter/Simple.pm | 6 ++----
|
||||
t/no.t | 13 +++++++++++++
|
||||
2 files changed, 15 insertions(+), 4 deletions(-)
|
||||
create mode 100644 t/no.t
|
||||
|
||||
diff --git a/lib/Filter/Simple.pm b/lib/Filter/Simple.pm
|
||||
index 082fe95..1dcf3c8 100644
|
||||
--- a/lib/Filter/Simple.pm
|
||||
+++ b/lib/Filter/Simple.pm
|
||||
@@ -2,14 +2,12 @@ package Filter::Simple;
|
||||
|
||||
use Text::Balanced ':ALL';
|
||||
|
||||
-use vars qw{ $VERSION @EXPORT };
|
||||
-
|
||||
-$VERSION = '0.94';
|
||||
+our $VERSION = '0.95';
|
||||
|
||||
use Filter::Util::Call;
|
||||
use Carp;
|
||||
|
||||
-@EXPORT = qw( FILTER FILTER_ONLY );
|
||||
+our @EXPORT = qw( FILTER FILTER_ONLY );
|
||||
|
||||
|
||||
sub import {
|
||||
diff --git a/t/no.t b/t/no.t
|
||||
new file mode 100644
|
||||
index 0000000..8980eae
|
||||
--- /dev/null
|
||||
+++ b/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);
|
||||
--
|
||||
2.14.3
|
||||
|
||||
@ -0,0 +1,87 @@
|
||||
From 4ba21b30b81c9f775932674d4c29f1b81e15bfa2 Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Tue, 21 Apr 2020 09:01:47 +0200
|
||||
Subject: [PATCH] Upgrade to 0.96
|
||||
|
||||
---
|
||||
lib/Filter/Simple.pm | 3 ++-
|
||||
t/filter_only.t | 19 ++++++++++++++++++-
|
||||
t/lib/Filter/Simple/ExeNoComments.pm | 11 +++++++++++
|
||||
3 files changed, 31 insertions(+), 2 deletions(-)
|
||||
create mode 100644 t/lib/Filter/Simple/ExeNoComments.pm
|
||||
|
||||
diff --git a/lib/Filter/Simple.pm b/lib/Filter/Simple.pm
|
||||
index 1dcf3c8..924c2ae 100644
|
||||
--- a/lib/Filter/Simple.pm
|
||||
+++ b/lib/Filter/Simple.pm
|
||||
@@ -2,7 +2,7 @@ package Filter::Simple;
|
||||
|
||||
use Text::Balanced ':ALL';
|
||||
|
||||
-our $VERSION = '0.95';
|
||||
+our $VERSION = '0.96';
|
||||
|
||||
use Filter::Util::Call;
|
||||
use Carp;
|
||||
@@ -70,6 +70,7 @@ my %extractor_for = (
|
||||
my %selector_for = (
|
||||
all => sub { my ($t)=@_; sub{ $_=$$_; $t->(@_); $_} },
|
||||
executable=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} },
|
||||
+ executable_no_comments=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} },
|
||||
quotelike => sub { my ($t)=@_; sub{ref() && do{$_=$$_; $t->(@_)}; $_} },
|
||||
regex => sub { my ($t)=@_;
|
||||
sub{ref() or return $_;
|
||||
diff --git a/t/filter_only.t b/t/filter_only.t
|
||||
index 57f1086..cd86707 100644
|
||||
--- a/t/filter_only.t
|
||||
+++ b/t/filter_only.t
|
||||
@@ -4,7 +4,7 @@ BEGIN {
|
||||
|
||||
use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
|
||||
"bad" => "ok", fail => "die";
|
||||
-print "1..9\n";
|
||||
+print "1..11\n";
|
||||
|
||||
sub fail { print "ok ", $_[0], "\n" }
|
||||
sub ok { print "ok ", $_[0], "\n" }
|
||||
@@ -41,3 +41,20 @@ print "ok 8\n";
|
||||
|
||||
print "not " unless "bad" =~ /bad/;
|
||||
print "ok 9\n";
|
||||
+
|
||||
+use Filter::Simple::ExeNoComments;
|
||||
+
|
||||
+=for us
|
||||
+
|
||||
+shromplex
|
||||
+
|
||||
+=cut
|
||||
+
|
||||
+# shromplex
|
||||
+
|
||||
+# test the difference from code*
|
||||
+my $x = "ABC";
|
||||
+
|
||||
+print $x eq "TEST" ? "" : "not ", "ok 10 # check strings processed\n";
|
||||
+
|
||||
+print "ok 11 # executable_no_comments\n";
|
||||
diff --git a/t/lib/Filter/Simple/ExeNoComments.pm b/t/lib/Filter/Simple/ExeNoComments.pm
|
||||
new file mode 100644
|
||||
index 0000000..3eaa454
|
||||
--- /dev/null
|
||||
+++ b/t/lib/Filter/Simple/ExeNoComments.pm
|
||||
@@ -0,0 +1,11 @@
|
||||
+package Filter::Simple::ExeNoComments;
|
||||
+
|
||||
+use Filter::Simple;
|
||||
+
|
||||
+FILTER_ONLY
|
||||
+ executable_no_comments => sub {
|
||||
+ $_ =~ /shromplex/ and die "We wants no shromplexes!";
|
||||
+ s/ABC/TEST/g;
|
||||
+ };
|
||||
+
|
||||
+1;
|
||||
--
|
||||
2.21.1
|
||||
|
||||
Loading…
Reference in new issue