Change 11843 by jhi@alpha on 2001/09/03 12:39:11
Damian's Filter::Simple test uses FilterTest, not MyFilter.
Affected files ...
... //depot/perl/t/lib/FilterTest.pm#1 add
... //depot/perl/t/lib/MyFilter.pm#2 delete
Differences ...
==== //depot/perl/t/lib/FilterTest.pm#1 (text) ====
Index: perl/t/lib/FilterTest.pm
--- perl/t/lib/FilterTest.pm.~1~ Mon Sep 3 06:45:05 2001
+++ perl/t/lib/FilterTest.pm Mon Sep 3 06:45:05 2001
@@ -0,0 +1,14 @@
+package FilterTest;
+
+BEGIN {
+ chdir('t') if -d 't';
+ @INC = '../lib';
+}
+
+use Filter::Simple sub {
+ while (my ($from, $to) = splice @_, 0, 2) {
+ s/$from/$to/g;
+ }
+};
+
+1;
End of Patch.
