develooper Front page | perl.perl5.porters | Postings from April 2000

[PATCH 5.6.0] File::Spec::* version numbers

From:
Barrie Slaymaker
Date:
April 9, 2000 09:32
Subject:
[PATCH 5.6.0] File::Spec::* version numbers
Message ID:
200004091632.MAA21775@jester.slaysys.com
Andreas Koenig wrote:
>
> Thanks to Marek and Martin from whom I have received reports that
> File::Spec::Mac has a $VERSION of 1.00 in Kenneth's package and no
> $VERSION in Barrie's package.
>
> I have now manipulated the CPAN indexer a little to the effect that it
> doesn't know about Kenneth's older version of the File::Spec modules
> anymore and will not try to re-index them. This should do, but it
> would be a good idea to add $VERSION to all modules in the package to
> prevent that such a bug occurs again. Please allow a day until the new
> index has reached your site and please let me know if you believe that
> the fix causes any other problems.

Thanks for hacking the indexer, it saves me having to release an 0.81 
until significant changes occur :-).

Fixed, see attached patch to be applied to perl's repository.  I just
rebundle what's there and re-issue it on CPAN for use with older perls.
I didn't up File::Spec's version number or release a new package, since
Andreas has hacked a fix, but ordinarily I would have.

I've also noticed that lots of patches go in to modules in the standard
distribution without tweaking the version number before the next release.

If the pumpkings wouldn't mind keeping an eye on that, it would help
head off future oddities: I'd like to repackage what's in there with
the same version number so that people upgrading to the new perl aren't
told to upgrade to the latest File-Spec package because I had to rev the
version higher than what's in perl-X.Y.Z-tar.gz.

Thanks,

Barrie


--- perl-5.6.0/lib/File/Spec/Functions.pm	Wed Sep 15 01:16:21 1999
+++ perl-5.6.0-fs1/lib/File/Spec/Functions.pm	Sun Apr  9 12:16:19 2000
@@ -3,7 +3,9 @@
 use File::Spec;
 use strict;
 
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
+
+$VERSION = '1.1';
 
 require Exporter;
 
--- perl-5.6.0/lib/File/Spec/Mac.pm	Thu Mar  2 21:55:09 2000
+++ perl-5.6.0-fs1/lib/File/Spec/Mac.pm	Sun Apr  9 12:14:24 2000
@@ -1,8 +1,11 @@
 package File::Spec::Mac;
 
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
+
+$VERSION = '1.1';
+
 @ISA = qw(File::Spec::Unix);
 
 =head1 NAME
--- perl-5.6.0/lib/File/Spec/OS2.pm	Tue Feb 29 03:03:09 2000
+++ perl-5.6.0-fs1/lib/File/Spec/OS2.pm	Sun Apr  9 12:14:17 2000
@@ -1,8 +1,11 @@
 package File::Spec::OS2;
 
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
+
+$VERSION = '1.1';
+
 @ISA = qw(File::Spec::Unix);
 
 sub devnull {
--- perl-5.6.0/lib/File/Spec/Unix.pm	Thu Mar 16 22:30:46 2000
+++ perl-5.6.0-fs1/lib/File/Spec/Unix.pm	Sun Apr  9 12:14:09 2000
@@ -1,6 +1,9 @@
 package File::Spec::Unix;
 
 use strict;
+use vars qw($VERSION);
+
+$VERSION = '1.1';
 
 use Cwd;
 
--- perl-5.6.0/lib/File/Spec/VMS.pm	Tue Mar 21 03:55:48 2000
+++ perl-5.6.0-fs1/lib/File/Spec/VMS.pm	Sun Apr  9 12:14:59 2000
@@ -1,8 +1,11 @@
 package File::Spec::VMS;
 
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
+
+$VERSION = '1.1';
+
 @ISA = qw(File::Spec::Unix);
 
 use Cwd;
--- perl-5.6.0/lib/File/Spec/Win32.pm	Thu Mar  2 21:50:04 2000
+++ perl-5.6.0-fs1/lib/File/Spec/Win32.pm	Sun Apr  9 12:15:20 2000
@@ -2,8 +2,11 @@
 
 use strict;
 use Cwd;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
+
+$VERSION = '1.1';
+
 @ISA = qw(File::Spec::Unix);
 
 =head1 NAME



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About