Upgrade if from version 0.06 to 0.0601

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ce60d89..c881cff 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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