From 11f2b7f3ad91593a216b1ffc2e2f9e3c721756d0 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Wed, 1 Dec 2010 17:19:10 +0100
Subject: [PATCH] Upgrade if from version 0.06 to 0.0601

---
 Porting/Maintainers.pl | 2 +-
 dist/if/if.pm          | 2 +-
 dist/if/t/if.t         | 6 +++++-
 pod/perldelta.pod      | 4 ++++
 4 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ce60d89..c881cff 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -727,7 +727,7 @@ use File::Glob qw(:case);
     'if' =>
 	{
 	'MAINTAINER'	=> 'ilyaz',
-	'DISTRIBUTION'	=> 'ILYAZ/modules/if-0.06.tar.gz',
+	'DISTRIBUTION'	=> 'ILYAZ/modules/if-0.0601.tar.gz',
 	'FILES'		=> q[dist/if],
 	'UPSTREAM'	=> 'blead',
 	},
diff --git a/dist/if/if.pm b/dist/if/if.pm
index 6e226f0..d321cd6 100644
--- a/dist/if/if.pm
+++ b/dist/if/if.pm
@@ -1,6 +1,6 @@
 package if;
 
-$VERSION = '0.06';
+$VERSION = '0.0601';
 
 sub work {
   my $method = shift() ? 'import' : 'unimport';
diff --git a/dist/if/t/if.t b/dist/if/t/if.t
index badab64..5cda849 100644
--- a/dist/if/t/if.t
+++ b/dist/if/t/if.t
@@ -1,10 +1,14 @@
 #!./perl
 
+BEGIN {
+    chdir 't' and @INC = '../lib' if -f 't/TEST';
+}
+
 my $t = 1;
 print "1..5\n";
 sub ok {
   print "not " unless shift;
-  print "ok $t # ", shift, "\n";
+  print "ok $t\n ", shift, "\n";
   $t++;
 }
 
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 6bf347e..cfeff1f 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -171,6 +171,10 @@ XXX
 
 =item *
 
+C<if> has been upgraded from 0.06 to 0.0601.
+
+=item *
+
 C<IPC::Cmd> has been upgraded from 0.64 to 0.66
 
 Resolves an issue with splitting Win32 command lines
-- 
2.7.4