Blame SOURCES/Filter-Simple-0.94-Upgrade-to-0.95.patch
|
 |
04d794 |
From 593fb3d6c0fcff266729d1d497d931e7e3ad9a83 Mon Sep 17 00:00:00 2001
|
|
|
04d794 |
From: Jitka Plesnikova <jplesnik@redhat.com>
|
|
|
04d794 |
Date: Thu, 24 May 2018 10:20:55 +0200
|
|
|
04d794 |
Subject: [PATCH] Upgrade to 0.95
|
|
|
04d794 |
|
|
|
04d794 |
---
|
|
|
04d794 |
lib/Filter/Simple.pm | 6 ++----
|
|
|
04d794 |
t/no.t | 13 +++++++++++++
|
|
|
04d794 |
2 files changed, 15 insertions(+), 4 deletions(-)
|
|
|
04d794 |
create mode 100644 t/no.t
|
|
|
04d794 |
|
|
|
04d794 |
diff --git a/lib/Filter/Simple.pm b/lib/Filter/Simple.pm
|
|
|
04d794 |
index 082fe95..1dcf3c8 100644
|
|
|
04d794 |
--- a/lib/Filter/Simple.pm
|
|
|
04d794 |
+++ b/lib/Filter/Simple.pm
|
|
|
04d794 |
@@ -2,14 +2,12 @@ package Filter::Simple;
|
|
|
04d794 |
|
|
|
04d794 |
use Text::Balanced ':ALL';
|
|
|
04d794 |
|
|
|
04d794 |
-use vars qw{ $VERSION @EXPORT };
|
|
|
04d794 |
-
|
|
|
04d794 |
-$VERSION = '0.94';
|
|
|
04d794 |
+our $VERSION = '0.95';
|
|
|
04d794 |
|
|
|
04d794 |
use Filter::Util::Call;
|
|
|
04d794 |
use Carp;
|
|
|
04d794 |
|
|
|
04d794 |
-@EXPORT = qw( FILTER FILTER_ONLY );
|
|
|
04d794 |
+our @EXPORT = qw( FILTER FILTER_ONLY );
|
|
|
04d794 |
|
|
|
04d794 |
|
|
|
04d794 |
sub import {
|
|
|
04d794 |
diff --git a/t/no.t b/t/no.t
|
|
|
04d794 |
new file mode 100644
|
|
|
04d794 |
index 0000000..8980eae
|
|
|
04d794 |
--- /dev/null
|
|
|
04d794 |
+++ b/t/no.t
|
|
|
04d794 |
@@ -0,0 +1,13 @@
|
|
|
04d794 |
+BEGIN {
|
|
|
04d794 |
+ unshift @INC, 't/lib/';
|
|
|
04d794 |
+}
|
|
|
04d794 |
+
|
|
|
04d794 |
+print "1..2\n";
|
|
|
04d794 |
+
|
|
|
04d794 |
+use Filter::Simple::FilterTest qr/ok/ => "not ok", pass => "fail";
|
|
|
04d794 |
+no Filter::Simple::FilterTest;
|
|
|
04d794 |
+
|
|
|
04d794 |
+sub pass { print "ok ", $_[0], "\n" }
|
|
|
04d794 |
+
|
|
|
04d794 |
+print "ok 1\n";
|
|
|
04d794 |
+("pa"."ss")->(2);
|
|
|
04d794 |
--
|
|
|
04d794 |
2.14.3
|
|
|
04d794 |
|