FAQ
(Regarding Johan's recent confusion with File::Find)

Compare two Perl source trees, find the .pm files, warn if they have
the same $VERSION (note: which $VERSION...?), but are different.

"Test" input: Perl 5.8.0 and bleadperl trees.

There's already Porting/checkVERSION.pl that might be useful, it warns
about .pm that do not have a $VERSION.

--
Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen

Search Discussions

  • Slaven at Aug 13, 2003 at 2:38 pm

    Jarkko Hietaniemi wrote:
    (Regarding Johan's recent confusion with File::Find)

    Compare two Perl source trees, find the .pm files, warn if they have
    the same $VERSION (note: which $VERSION...?), but are different.

    "Test" input: Perl 5.8.0 and bleadperl trees.

    There's already Porting/checkVERSION.pl that might be useful, it warns
    about .pm that do not have a $VERSION.
    perl -MExtUtils::MakeMaker -MFile::Compare -MFile::Find -MFile::Spec::Functions=rel2abs,abs2rel -e '$dir2 = rel2abs($ARGV[1]); chdir $ARGV[0]; find(sub { /\.pm$/ && do { $file2 = "$dir2/$File::Find::name"; return if compare($_,$file2) == 0; $version1 = eval {MM->parse_version($_)}; $version2 = eval {MM->parse_version($file2)}; warn "$File::Find::name" if $version1 eq $version2 } }, ".")' perl-5.8.0 perl-5.8.x

    Regards,
    Slaven
  • Jarkko Hietaniemi at Aug 13, 2003 at 3:09 pm
    Okay, volunteers for going through the 73 .pm:s that have
    the same $VERSION but are different between 5.8.0 and 5.8.x...?

    If the module is a CPAN module (use Porting/Maintainers if you don't
    know), the author should be informed (is there some fix made in the
    core we have forgotten to the author about?). If the module is "pure
    core", just bump up the version number.

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Ronald J Kimball at Aug 13, 2003 at 4:10 pm

    On Wed, Aug 13, 2003 at 06:09:16PM +0300, Jarkko Hietaniemi wrote:
    Okay, volunteers for going through the 73 .pm:s that have
    the same $VERSION but are different between 5.8.0 and 5.8.x...?
    Should the comparison be against installed perl modules, compiled perl
    modules, or freshly unarchived perl modules?

    Ronald
  • Jarkko Hietaniemi at Aug 13, 2003 at 4:15 pm

    On Wed, Aug 13, 2003 at 12:09:20PM -0400, Ronald J Kimball wrote:
    On Wed, Aug 13, 2003 at 06:09:16PM +0300, Jarkko Hietaniemi wrote:
    Okay, volunteers for going through the 73 .pm:s that have
    the same $VERSION but are different between 5.8.0 and 5.8.x...?
    Should the comparison be against installed perl modules, compiled perl
    modules, or freshly unarchived perl modules?
    Ummm, against freshly rsynced (or whatever) Perl source code trees,
    using e.g. Slaven's script...

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Abe Timmerman at Aug 13, 2003 at 5:25 pm
    Op een zonnige zomerdag (Wednesday 13 August 2003 17:09), schreef Jarkko
    Hietaniemi:
    Okay, volunteers for going through the 73 .pm:s that have
    the same $VERSION but are different between 5.8.0 and 5.8.x...?

    If the module is a CPAN module (use Porting/Maintainers if you don't
    know), the author should be informed (is there some fix made in the
    core we have forgotten to the author about?). If the module is "pure
    core", just bump up the version number.
    Yup, I'll do some of it, but where do I start and do I only do it for 5.8.x?
    And do the same for 5.9.x against 5.8.x?

    Good luck,

    Abe
    --
    I admit that there was too much waving the chicken and too little
    looking at the chicken's genome in that change.
    -- Alan Burlison on p5p @ 2003-08-11
  • Jarkko Hietaniemi at Aug 13, 2003 at 6:30 pm
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.

    ./ext/B/B.pm
    ./ext/B/B/Asmdata.pm
    ./ext/B/B/Assembler.pm
    ./ext/B/B/Bblock.pm
    ./ext/B/B/C.pm
    ./ext/B/B/Debug.pm
    ./ext/B/B/Disassembler.pm
    ./ext/B/B/Lint.pm
    ./ext/Data/Dumper/Dumper.pm
    ./ext/Fcntl/Fcntl.pm
    ./ext/File/Glob/Glob.pm
    ./ext/IO/IO.pm
    ./ext/IO/lib/IO/File.pm
    ./ext/IO/lib/IO/Handle.pm
    ./ext/IO/lib/IO/Select.pm
    ./ext/IO/lib/IO/Socket.pm
    ./ext/IO/lib/IO/Socket/INET.pm
    ./ext/IPC/SysV/Msg.pm
    ./ext/IPC/SysV/Semaphore.pm
    ./ext/List/Util/lib/Scalar/Util.pm
    ./ext/Opcode/Opcode.pm
    ./ext/POSIX/POSIX.pm
    ./ext/Sys/Hostname/Hostname.pm
    ./ext/Sys/Syslog/Syslog.pm
    ./ext/re/re.pm
    ./ext/threads/shared/shared.pm
    ./ext/threads/threads.pm
    ./lib/AutoSplit.pm
    ./lib/CGI/Fast.pm
    ./lib/CGI/Util.pm
    ./lib/CPAN/Nox.pm
    ./lib/Cwd.pm
    ./lib/English.pm
    ./lib/Exporter/Heavy.pm
    ./lib/File/Basename.pm
    ./lib/File/Copy.pm
    ./lib/File/Path.pm
    ./lib/File/Spec/Cygwin.pm
    ./lib/File/Spec/Unix.pm
    ./lib/File/Temp.pm
    ./lib/Hash/Util.pm
    ./lib/Locale/Country.pm
    ./lib/Locale/Currency.pm
    ./lib/Locale/Language.pm
    ./lib/Locale/Script.pm
    ./lib/Net/hostent.pm
    ./lib/Net/servent.pm
    ./lib/SelfLoader.pm
    ./lib/Switch.pm
    ./lib/Test/Harness/Straps.pm
    ./lib/Text/Abbrev.pm
    ./lib/Text/Wrap.pm
    ./lib/Thread/Semaphore.pm
    ./lib/Tie/Array.pm
    ./lib/Tie/RefHash.pm
    ./lib/UNIVERSAL.pm
    ./lib/Unicode/UCD.pm
    ./lib/attributes.pm
    ./lib/base.pm
    ./lib/diagnostics.pm
    ./lib/fields.pm
    ./lib/filetest.pm
    ./lib/open.pm
    ./lib/overload.pm
    ./lib/utf8.pm
    ./lib/vmsish.pm
    ./lib/warnings.pm
    ./os2/OS2/Process/Process.pm
    ./os2/OS2/REXX/DLL/DLL.pm
    ./t/TestInit.pm
    ./t/lib/MakeMaker/Test/Utils.pm
    ./t/lib/Math/BigInt/BareCalc.pm
    ./vms/ext/Filespec.pm

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Nicholas Clark at Aug 13, 2003 at 6:34 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    I pick all of them, and if anyone wants to argue, er help, I'm on IRC on #p5p
    rhizomatic.

    I'll unpick any I failed on in 2 or so hours time.

    Nicholas Clark
  • Nicholas Clark at Aug 13, 2003 at 7:11 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./ext/Opcode/Opcode.pm
    Eh?

    $ cmp ../perl-5.8.0/ext/Opcode/Opcode.pm ext/Opcode/Opcode.pm
    $

    I think that they are identical

    Nicholas Clark
  • Jarkko Hietaniemi at Aug 13, 2003 at 7:20 pm

    $ cmp ../perl-5.8.0/ext/Opcode/Opcode.pm ext/Opcode/Opcode.pm
    $

    I think that they are identical
    I blame the script :-) A bug in File::Compare?

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Jarkko Hietaniemi at Aug 14, 2003 at 6:18 am

    ./ext/Opcode/Opcode.pm
    I think that they are identical
    They were identical 5.8.0 <-> maint but blead had the dor.

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Enache Adrian at Aug 13, 2003 at 7:24 pm

    On Wed, Aug 13, 2003 a.d., Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    What about those modules where only the XS part has changed ?
    ./ext/B/B/Asmdata.pm
    ./ext/B/B/Assembler.pm ...
    ./ext/B/B/Disassembler.pm
    I think it's only me who had the weird idea to start typing into those
    scripts since 5.8.0.
    (notice that Asmdata.pm is autogenerated - run bytecode.pl).

    Regards,
    Adi

    --- /arc/bleadperl/ext/B/B/Assembler.pm 2003-08-05 16:57:07.000000000 +0300
    +++ ./ext/B/B/Assembler.pm 2003-08-13 22:26:44.000000000 +0300
    @@ -16,7 +16,7 @@

    @ISA = qw(Exporter);
    @EXPORT_OK = qw(assemble_fh newasm endasm assemble asm);
    -$VERSION = 0.04;
    +$VERSION = 0.05;

    use strict;
    my %opnumber;
    --- /arc/bleadperl/ext/B/B/Disassembler.pm 2003-08-05 16:57:07.000000000 +0300
    +++ ./ext/B/B/Disassembler.pm 2003-08-13 22:26:58.000000000 +0300
    @@ -6,7 +6,7 @@
    # License or the Artistic License, as specified in the README file.
    package B::Disassembler::BytecodeStream;

    -our $VERSION = '1.01';
    +our $VERSION = '1.02';

    use FileHandle;
    use Carp;
    --- /arc/bleadperl/bytecode.pl 2003-07-28 15:17:42.000000000 +0300
    +++ ./bytecode.pl 2003-08-13 22:27:26.000000000 +0300
    @@ -46,7 +46,7 @@
    print ASMDATA_PM $perl_header, <<'EOT';
    package B::Asmdata;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    use Exporter;
    @ISA = qw(Exporter);
  • Jarkko Hietaniemi at Aug 13, 2003 at 7:37 pm

    On Wed, Aug 13, 2003 at 10:31:18PM +0300, Enache Adrian wrote:
    On Wed, Aug 13, 2003 a.d., Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    What about those modules where only the XS part has changed ?
    Good point... but which "version" would you use for XS?
    ./ext/B/B/Asmdata.pm
    ./ext/B/B/Assembler.pm ...
    ./ext/B/B/Disassembler.pm
    I think it's only me who had the weird idea to start typing into those
    scripts since 5.8.0.
    (notice that Asmdata.pm is autogenerated - run bytecode.pl).
    +++ ./ext/B/B/Assembler.pm 2003-08-13 22:26:44.000000000 +0300
    +++ ./ext/B/B/Disassembler.pm 2003-08-13 22:26:58.000000000 +0300
    +++ ./bytecode.pl 2003-08-13 22:27:26.000000000 +0300
    Thanks!

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Jarkko Hietaniemi at Aug 14, 2003 at 6:19 am
    What about those modules where only the XS part has changed ?
    Sooo... we could need to compare the contents of the .xs but the
    $VERSIONs of the .pm?

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Slaven at Aug 14, 2003 at 7:44 am

    Jarkko Hietaniemi wrote:
    What about those modules where only the XS part has changed ?
    Sooo... we could need to compare the contents of the .xs but the
    $VERSIONs of the .pm?
    This assumes that each .xs file is named after the corresponding
    .pm file.

    Regards,
    Slaven

    --- cmpVERSION.pl.orig 2003-08-14 09:32:42.000000000 +0200
    +++ cmpVERSION.pl 2003-08-14 09:41:20.000000000 +0200
    @@ -34,7 +34,14 @@ find(
    &&
    do { my $file2 =
    catfile(catdir($dir2, $File::Find::dir), $_);
    - return if compare($_, $file2) == 0;
    + (my $xs_file1 = $_) =~ s/\.pm$/.xs/;
    + (my $xs_file2 = $file2) =~ s/\.pm$/.xs/;
    + if (-e $xs_file1 && -e $xs_file2) {
    + return if compare($_, $file2) == 0 &&
    + compare($xs_file1, $xs_file2) == 0;
    + } else {
    + return if compare($_, $file2) == 0;
    + }
    my $version1 = eval {MM->parse_version($_)};
    my $version2 = eval {MM->parse_version($file2)};
    push @wanted, $File::Find::name
  • Nick Ing-Simmons at Aug 14, 2003 at 7:35 pm

    Jarkko Hietaniemi writes:
    What about those modules where only the XS part has changed ?
    Sooo... we could need to compare the contents of the .xs
    _and_ the .pm
    but the
    $VERSIONs of the .pm?
    Yes.
  • Nicholas Clark at Aug 13, 2003 at 7:41 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./ext/List/Util/lib/Scalar/Util.pm
    $VERSION comes from List/Util.pm

    Nicholas Clark

    --- ext/List/Util/lib/List/Util.pm.orig 2003-02-18 15:22:42.000000000 +0000
    +++ ext/List/Util/lib/List/Util.pm 2003-08-13 20:08:23.000000000 +0100
    @@ -11,7 +11,7 @@ require DynaLoader;

    our @ISA = qw(Exporter DynaLoader);
    our @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
    -our $VERSION = "1.11_00";
    +our $VERSION = "1.12_00";
    our $XS_VERSION = $VERSION;
    $VERSION = eval $VERSION;
  • Nicholas Clark at Aug 13, 2003 at 7:44 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./ext/Data/Dumper/Dumper.pm
    Nicholas Clark

    --- ext/Data/Dumper/Dumper.pm.orig 2003-06-26 07:53:21.000000000 +0100
    +++ ext/Data/Dumper/Dumper.pm 2003-08-13 19:40:04.000000000 +0100
    @@ -9,7 +9,7 @@

    package Data::Dumper;

    -$VERSION = '2.12';
    +$VERSION = '2.13';

    #$| = 1;
  • Jarkko Hietaniemi at Aug 13, 2003 at 7:58 pm

    package Data::Dumper;

    -$VERSION = '2.12';
    +$VERSION = '2.13';
    Ilya, is it okay for me to apply this or do you want to upload
    first a new release of Data::Dumper to CPAN?

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Nicholas Clark at Aug 13, 2003 at 7:46 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./ext/B/B.pm
    ./ext/B/B/Bblock.pm
    ./ext/B/B/C.pm
    ./ext/B/B/Debug.pm
    ./ext/B/B/Lint.pm
    ./ext/Fcntl/Fcntl.pm
    ./ext/File/Glob/Glob.pm
    ./ext/IO/IO.pm
    ./ext/IO/lib/IO/File.pm
    ./ext/IO/lib/IO/Handle.pm
    ./ext/IO/lib/IO/Select.pm
    ./ext/IO/lib/IO/Socket.pm
    ./ext/IO/lib/IO/Socket/INET.pm
    ./ext/IPC/SysV/Msg.pm
    ./ext/IPC/SysV/Semaphore.pm
    ./ext/POSIX/POSIX.pm
    ./ext/Sys/Hostname/Hostname.pm
    ./ext/Sys/Syslog/Syslog.pm
    ./ext/re/re.pm
    ./ext/threads/shared/shared.pm
    ./ext/threads/threads.pm
    That should be all of ext

    Nicholas Clark

    --- ext/B/B/Bblock.pm.orig 2003-02-18 15:57:51.000000000 +0000
    +++ ext/B/B/Bblock.pm 2003-08-13 19:56:03.000000000 +0100
    @@ -1,6 +1,6 @@
    package B::Bblock;

    -our $VERSION = '1.00';
    +our $VERSION = '1.02';

    use Exporter ();
    @ISA = "Exporter";
    --- ext/B/B/C.pm.orig 2003-02-28 21:17:39.000000000 +0000
    +++ ext/B/B/C.pm 2003-08-13 19:56:00.000000000 +0100
    @@ -7,7 +7,7 @@
    #
    package B::C::Section;

    -our $VERSION = '1.01';
    +our $VERSION = '1.02';

    use B ();
    use base B::Section;
    --- ext/B/B/Debug.pm.orig 2003-07-03 11:03:18.000000000 +0100
    +++ ext/B/B/Debug.pm 2003-08-13 19:55:57.000000000 +0100
    @@ -1,6 +1,6 @@
    package B::Debug;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    use strict;
    use B qw(peekop class walkoptree walkoptree_exec
    --- ext/B/B/Lint.pm.orig 2002-11-23 03:16:19.000000000 +0000
    +++ ext/B/B/Lint.pm 2003-08-13 19:55:51.000000000 +0100
    @@ -1,6 +1,6 @@
    package B::Lint;

    -our $VERSION = '1.01';
    +our $VERSION = '1.02';

    =head1 NAME

    --- ext/B/B.pm.orig 2003-07-28 12:07:07.000000000 +0100
    +++ ext/B/B.pm 2003-08-13 19:56:40.000000000 +0100
    @@ -7,7 +7,7 @@
    #
    package B;

    -our $VERSION = '1.01';
    +our $VERSION = '1.02';

    use XSLoader ();
    require Exporter;
    --- ext/Fcntl/Fcntl.pm.orig 2003-06-17 07:35:56.000000000 +0100
    +++ ext/Fcntl/Fcntl.pm 2003-08-13 19:41:08.000000000 +0100
    @@ -60,7 +60,7 @@ our($VERSION, @ISA, @EXPORT, @EXPORT_OK,
    require Exporter;
    use XSLoader ();
    @ISA = qw(Exporter);
    -$VERSION = "1.04";
    +$VERSION = "1.05";
    # Items to export into callers namespace by default
    # (move infrequently used names to @EXPORT_OK below)
    @EXPORT =
    --- ext/File/Glob/Glob.pm.orig 2003-08-02 08:41:39.000000000 +0100
    +++ ext/File/Glob/Glob.pm 2003-08-13 19:42:44.000000000 +0100
    @@ -56,7 +56,7 @@ use XSLoader ();
    ) ],
    );

    -$VERSION = '1.01';
    +$VERSION = '1.02';

    sub import {
    require Exporter;
    --- ext/IO/lib/IO/Socket/INET.pm.orig 2003-02-26 20:51:12.000000000 +0000
    +++ ext/IO/lib/IO/Socket/INET.pm 2003-08-13 19:52:33.000000000 +0100
    @@ -15,7 +15,7 @@ use Exporter;
    use Errno;

    @ISA = qw(IO::Socket);
    -$VERSION = "1.26";
    +$VERSION = "1.27";

    my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;

    --- ext/IO/lib/IO/File.pm.orig 2003-05-29 16:35:02.000000000 +0100
    +++ ext/IO/lib/IO/File.pm 2003-08-13 19:52:56.000000000 +0100
    @@ -121,7 +121,7 @@ require Exporter;

    @ISA = qw(IO::Handle IO::Seekable Exporter);

    -$VERSION = "1.09";
    +$VERSION = "1.10";

    @EXPORT = @IO::Seekable::EXPORT;

    --- ext/IO/lib/IO/Handle.pm.orig 2003-05-29 16:35:02.000000000 +0100
    +++ ext/IO/lib/IO/Handle.pm 2003-08-13 19:52:50.000000000 +0100
    @@ -263,7 +263,7 @@ use IO (); # Load the XS module
    require Exporter;
    @ISA = qw(Exporter);

    -$VERSION = "1.21_00";
    +$VERSION = "1.22_00";
    $VERSION = eval $VERSION;

    @EXPORT_OK = qw(
    --- ext/IO/lib/IO/Select.pm.orig 2003-03-09 15:13:12.000000000 +0000
    +++ ext/IO/lib/IO/Select.pm 2003-08-13 19:52:44.000000000 +0100
    @@ -11,7 +11,7 @@ use warnings::register;
    use vars qw($VERSION @ISA);
    require Exporter;

    -$VERSION = "1.15";
    +$VERSION = "1.16";

    @ISA = qw(Exporter); # This is only so we can do version checking

    --- ext/IO/lib/IO/Socket.pm.orig 2003-07-24 16:52:09.000000000 +0100
    +++ ext/IO/lib/IO/Socket.pm 2003-08-13 19:52:39.000000000 +0100
    @@ -23,7 +23,7 @@ require IO::Socket::UNIX if ($^O ne 'epo

    @ISA = qw(IO::Handle);

    -$VERSION = "1.27";
    +$VERSION = "1.28";

    @EXPORT_OK = qw(sockatmark);

    --- ext/IO/IO.pm.orig 2003-07-24 16:52:09.000000000 +0100
    +++ ext/IO/IO.pm 2003-08-13 19:53:01.000000000 +0100
    @@ -7,7 +7,7 @@ use Carp;
    use strict;
    use warnings;

    -our $VERSION = "1.20";
    +our $VERSION = "1.21";
    XSLoader::load 'IO', $VERSION;

    sub import {
    --- ext/IPC/SysV/Msg.pm.orig 2003-03-03 06:50:57.000000000 +0000
    +++ ext/IPC/SysV/Msg.pm 2003-08-13 19:54:09.000000000 +0100
    @@ -11,7 +11,7 @@ use strict;
    use vars qw($VERSION);
    use Carp;

    -$VERSION = "1.00_00";
    +$VERSION = "1.01_00";
    $VERSION = eval $VERSION;

    {
    --- ext/IPC/SysV/Semaphore.pm.orig 2002-11-04 06:34:37.000000000 +0000
    +++ ext/IPC/SysV/Semaphore.pm 2003-08-13 19:54:05.000000000 +0100
    @@ -12,7 +12,7 @@ use strict;
    use vars qw($VERSION);
    use Carp;

    -$VERSION = "1.00_00";
    +$VERSION = "1.01_00";
    $VERSION = eval $VERSION;

    {
    --- ext/POSIX/POSIX.pm.orig 2003-08-10 20:48:00.000000000 +0100
    +++ ext/POSIX/POSIX.pm 2003-08-13 20:12:43.000000000 +0100
    @@ -2,7 +2,7 @@ package POSIX;

    our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();

    -our $VERSION = "1.05" ;
    +our $VERSION = "1.06" ;

    use AutoLoader;

    --- ext/Sys/Hostname/Hostname.pm.orig 2003-05-29 16:35:02.000000000 +0100
    +++ ext/Sys/Hostname/Hostname.pm 2003-08-13 20:15:03.000000000 +0100
    @@ -15,7 +15,7 @@ our $VERSION;
    our $host;

    BEGIN {
    - $VERSION = '1.1';
    + $VERSION = '1.11';
    {
    local $SIG{__DIE__};
    eval {
    --- ext/Sys/Syslog/Syslog.pm.orig 2003-08-06 21:01:19.000000000 +0100
    +++ ext/Sys/Syslog/Syslog.pm 2003-08-13 20:13:33.000000000 +0100
    @@ -7,7 +7,7 @@ use Carp;
    @ISA = qw(Exporter DynaLoader);
    @EXPORT = qw(openlog closelog setlogmask syslog);
    @EXPORT_OK = qw(setlogsock);
    -$VERSION = '0.03';
    +$VERSION = '0.04';

    # it would be nice to try stream/unix first, since that will be
    # most efficient. However streams are dodgy - see _syslog_send_stream
    --- ext/re/re.pm.orig 2002-12-02 14:35:16.000000000 +0000
    +++ ext/re/re.pm 2003-08-13 20:15:54.000000000 +0100
    @@ -1,6 +1,6 @@
    package re;

    -our $VERSION = 0.03;
    +our $VERSION = 0.04;

    =head1 NAME

    --- ext/threads/shared/shared.pm.orig 2003-06-09 20:11:10.000000000 +0100
    +++ ext/threads/shared/shared.pm 2003-08-13 20:16:39.000000000 +0100
    @@ -7,7 +7,7 @@ BEGIN {
    require Exporter;
    our @ISA = qw(Exporter);
    our @EXPORT = qw(share cond_wait cond_broadcast cond_signal);
    - our $VERSION = '0.90';
    + our $VERSION = '0.91';

    if ($threads::threads) {
    *cond_wait = \&cond_wait_enabled;
    --- ext/threads/threads.pm.orig 2003-06-19 17:08:39.000000000 +0100
    +++ ext/threads/threads.pm 2003-08-13 20:17:23.000000000 +0100
    @@ -52,7 +52,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'
    our @EXPORT = qw(
    async
    );
    -our $VERSION = '0.99';
    +our $VERSION = '1.00';


    sub equal {
  • Nicholas Clark at Aug 13, 2003 at 8:02 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/CGI/Fast.pm
    ./lib/CGI/Util.pm
    These two files in maint are identical with their counterparts in CGI 2.99
    on CPAN. maint only has CGI.pm 2.98

    I'm not sure what the best way forward is

    Nicholas Clark

    --- lib/CGI/Fast.pm.orig 2003-06-04 07:40:33.000000000 +0100
    +++ lib/CGI/Fast.pm 2003-08-13 20:48:25.000000000 +0100
    @@ -16,7 +16,7 @@ package CGI::Fast;
    # The most recent version and complete docs are available at:
    # http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
    # ftp://ftp-genome.wi.mit.edu/pub/software/WWW/
    -$CGI::Fast::VERSION='1.04';
    +$CGI::Fast::VERSION='1.05';

    use CGI;
    use FCGI;
    --- lib/CGI/Util.pm.orig 2003-06-04 07:40:33.000000000 +0100
    +++ lib/CGI/Util.pm 2003-08-13 20:48:21.000000000 +0100
    @@ -6,7 +6,7 @@ require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(rearrange make_attributes unescape escape expires);

    -$VERSION = '1.3';
    +$VERSION = '1.31';

    $EBCDIC = "\t" ne "\011";
    if ($EBCDIC) {
  • Jarkko Hietaniemi at Aug 14, 2003 at 9:18 am

    These two files in maint are identical with their counterparts in CGI 2.99
    on CPAN. maint only has CGI.pm 2.98
    For these two files CGI.pm 2.98 and 2.99 are identical.
    I'm not sure what the best way forward is
    I think Lincoln should in his next CGI.pm up the $VERSION of these files.
    +++ lib/CGI/Fast.pm 2003-08-13 20:48:25.000000000 +0100
    +++ lib/CGI/Util.pm 2003-08-13 20:48:21.000000000 +0100
    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Nicholas Clark at Aug 13, 2003 at 8:05 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/CPAN/Nox.pm
    The diff is the addition of a cosmetic (but strictly unnecessary) 1; at the
    end.

    Nicholas Clark

    --- lib/CPAN/Nox.pm.orig 2003-05-20 22:20:58.000000000 +0100
    +++ lib/CPAN/Nox.pm 2003-08-13 21:03:22.000000000 +0100
    @@ -9,7 +9,7 @@ BEGIN{
    use base 'Exporter';
    use CPAN;

    -$VERSION = "1.02";
    +$VERSION = "1.03";
    $CPAN::META->has_inst('Digest::MD5','no');
    $CPAN::META->has_inst('LWP','no');
    $CPAN::META->has_inst('Compress::Zlib','no');
  • Nicholas Clark at Aug 13, 2003 at 8:14 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/Exporter/Heavy.pm
    This pulls its version from Exporter.pm, which has changed.

    Nicholas Clark
  • Nicholas Clark at Aug 13, 2003 at 8:19 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/File/Temp.pm
    Nicholas Clark

    --- lib/File/Temp.pm.orig 2002-11-09 23:08:11.000000000 +0000
    +++ lib/File/Temp.pm 2003-08-13 21:16:30.000000000 +0100
    @@ -167,7 +167,7 @@ Exporter::export_tags('POSIX','mktemp');

    # Version number

    -$VERSION = '0.13';
    +$VERSION = '0.14';

    # This is a list of characters that can be used in random filenames
  • Nicholas Clark at Aug 13, 2003 at 8:23 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/File/Spec/Cygwin.pm
    ./lib/File/Spec/Unix.pm
    File::Spec's version is already 0.86, which seems to be newer than CPAN's
    0.85

    Nicholas Clark

    --- lib/File/Spec/Cygwin.pm.orig 2003-03-14 14:59:28.000000000 +0000
    +++ lib/File/Spec/Cygwin.pm 2003-08-13 21:16:44.000000000 +0100
    @@ -5,7 +5,7 @@ use strict;
    use vars qw(@ISA $VERSION);
    require File::Spec::Unix;

    -$VERSION = '1.0';
    +$VERSION = '1.01';

    @ISA = qw(File::Spec::Unix);

    --- lib/File/Spec/Unix.pm.orig 2003-07-27 22:25:45.000000000 +0100
    +++ lib/File/Spec/Unix.pm 2003-08-13 21:16:36.000000000 +0100
    @@ -3,7 +3,7 @@ package File::Spec::Unix;
    use strict;
    use vars qw($VERSION);

    -$VERSION = '1.4';
    +$VERSION = '1.41';

    use Cwd;
  • Jarkko Hietaniemi at Aug 13, 2003 at 8:25 pm

    On Wed, Aug 13, 2003 at 09:23:21PM +0100, Nicholas Clark wrote:
    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/File/Spec/Cygwin.pm
    ./lib/File/Spec/Unix.pm
    File::Spec's version is already 0.86, which seems to be newer than CPAN's
    0.85
    In such cases it would be good to double and triple check that
    there is no "patch skew", at either end...

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Ken Williams at Aug 13, 2003 at 8:47 pm

    On Wednesday, August 13, 2003, at 03:25 PM, Jarkko Hietaniemi wrote:
    On Wed, Aug 13, 2003 at 09:23:21PM +0100, Nicholas Clark wrote:
    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/File/Spec/Cygwin.pm
    ./lib/File/Spec/Unix.pm
    File::Spec's version is already 0.86, which seems to be newer than
    CPAN's
    0.85
    In such cases it would be good to double and triple check that
    there is no "patch skew", at either end...
    The idea here was just that we would bump up File::Spec's version in
    the core to 0.86, and then as soon as 5.8.1 is released I'll release
    the same thing to CPAN as 0.86.

    I don't plan any further File::Spec changes until then, so this was a
    way of avoiding skew issues.

    I believe this was item #20266 in the repository.

    -Ken
  • Nicholas Clark at Aug 13, 2003 at 8:31 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/AutoSplit.pm
    ./lib/Cwd.pm
    ./lib/English.pm
    ./lib/Exporter/Heavy.pm
    ./lib/File/Basename.pm
    ./lib/File/Copy.pm
    ./lib/File/Path.pm
    ./lib/Hash/Util.pm
    Nicholas Clark

    --- lib/File/Basename.pm.orig 2003-03-03 06:50:57.000000000 +0000
    +++ lib/File/Basename.pm 2003-08-13 21:15:45.000000000 +0100
    @@ -142,7 +142,7 @@ our(@ISA, @EXPORT, $VERSION, $Fileparse_
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
    -$VERSION = "2.71";
    +$VERSION = "2.72";


    # fileparse_set_fstype() - specify OS-based rules used in future
    --- lib/File/Copy.pm.orig 2003-06-17 07:35:56.000000000 +0100
    +++ lib/File/Copy.pm 2003-08-13 21:16:54.000000000 +0100
    @@ -24,7 +24,7 @@ sub mv;
    # package has not yet been updated to work with Perl 5.004, and so it
    # would be a Bad Thing for the CPAN module to grab it and replace this
    # module. Therefore, we set this module's version higher than 2.0.
    -$VERSION = '2.05';
    +$VERSION = '2.06';

    require Exporter;
    @ISA = qw(Exporter);
    --- lib/File/Path.pm.orig 2003-05-13 20:09:37.000000000 +0100
    +++ lib/File/Path.pm 2003-08-13 21:16:49.000000000 +0100
    @@ -119,7 +119,7 @@ use Exporter ();
    use strict;
    use warnings;

    -our $VERSION = "1.05";
    +our $VERSION = "1.06";
    our @ISA = qw( Exporter );
    our @EXPORT = qw( mkpath rmtree );

    --- lib/AutoSplit.pm.orig 2002-12-31 16:44:43.000000000 +0000
    +++ lib/AutoSplit.pm 2003-08-13 21:06:19.000000000 +0100
    @@ -11,7 +11,7 @@ use strict;
    our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
    $CheckForAutoloader, $CheckModTime);

    -$VERSION = "1.0307";
    +$VERSION = "1.04";
    @ISA = qw(Exporter);
    @EXPORT = qw(&autosplit &autosplit_lib_modules);
    @EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
    --- lib/Cwd.pm.orig 2003-08-12 14:33:23.000000000 +0100
    +++ lib/Cwd.pm 2003-08-13 21:05:55.000000000 +0100
    @@ -150,7 +150,7 @@ use strict;

    use Carp;

    -our $VERSION = '2.06';
    +our $VERSION = '2.07';

    use base qw/ Exporter /;
    our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
    --- lib/English.pm.orig 2002-12-09 03:51:22.000000000 +0000
    +++ lib/English.pm 2003-08-13 21:06:47.000000000 +0100
    @@ -1,6 +1,6 @@
    package English;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    require Exporter;
    @ISA = (Exporter);
  • Nicholas Clark at Aug 13, 2003 at 8:43 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/Locale/Country.pm
    ./lib/Locale/Currency.pm
    ./lib/Locale/Language.pm
    ./lib/Locale/Script.pm
    These differ from 5.8.0 as follows:

    --- ../perl-5.8.0/./lib/Locale/Country.pm 2002-07-16 14:25:52.000000000 +0100
    +++ ./lib/Locale/Country.pm 2002-11-04 06:34:38.000000000 +0000
    @@ -268,4 +268,5 @@ sub _code2codeset
    my ($country, @countries);

    + local $_;

    while (<DATA>)
    --- ../perl-5.8.0/./lib/Locale/Currency.pm 2002-07-16 14:25:54.000000000 +0100
    +++ ./lib/Locale/Currency.pm 2002-11-04 06:34:38.000000000 +0000
    @@ -109,4 +109,5 @@ sub all_currency_names
    my $currency;

    + local $_;

    while (<DATA>)
    --- ../perl-5.8.0/./lib/Locale/Language.pm 2002-07-16 14:25:55.000000000 +0100
    +++ ./lib/Locale/Language.pm 2002-11-04 06:34:38.000000000 +0000
    @@ -108,4 +108,5 @@ sub all_language_names
    my $language;

    + local $_;

    while (<DATA>)
    @@ -232,5 +233,5 @@ my:Burmese

    na:Nauru
    -nb:Norwegian Bokmål
    +nb:Norwegian Bokmal
    nd:Ndebele, North
    ne:Nepali
    @@ -301,5 +302,5 @@ uz:Uzbek

    vi:Vietnamese
    -vo:Volapük
    +vo:Volapuk

    wo:Wolof
    --- ../perl-5.8.0/./lib/Locale/Script.pm 2002-07-16 14:25:57.000000000 +0100
    +++ ./lib/Locale/Script.pm 2002-11-04 06:34:38.000000000 +0000
    @@ -161,4 +161,5 @@ sub all_script_names
    my $script;

    + local $_;

    while (<DATA>)


    Given that VERSION is set like this:

    ./lib/Locale/Country.pm:$VERSION = sprintf("%d.%02d", q$Revision: 2.6 $ =~ /(\d+)\.(\d+)/);
    ./lib/Locale/Currency.pm:$VERSION = sprintf("%d.%02d", q$Revision: 2.2 $ =~ /(\d+)\.(\d+)/);
    ./lib/Locale/Language.pm:$VERSION = sprintf("%d.%02d", q$Revision: 2.2 $ =~ /(\d+)\.(\d+)/);
    ./lib/Locale/Script.pm:$VERSION = sprintf("%d.%02d", q$Revision: 2.2 $ =~ /(\d+)\.(\d+)/);

    I think that we ought to merge the patches back to Neil Bowers and then
    resync.

    Nicholas Clark
  • Nicholas Clark at Aug 13, 2003 at 8:50 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/Switch.pm
    CPAN has version 2.09. maint has some modifications.

    Nicholas Clark

    --- lib/Switch.pm.orig 2003-05-22 14:17:47.000000000 +0100
    +++ lib/Switch.pm 2003-08-13 21:46:24.000000000 +0100
    @@ -4,7 +4,7 @@ use strict;
    use vars qw($VERSION);
    use Carp;

    -$VERSION = '2.09';
    +$VERSION = '2.10';


    # LOAD FILTERING MODULE...
  • Nicholas Clark at Aug 13, 2003 at 9:01 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/Text/Wrap.pm

    maint changes this:

    my $lead = $ip;
    my $ll = $columns - length(expand($ip)) - 1;
    + $ll = 0 if $ll < 0;
    my $nll = $columns - length(expand($xp)) - 1;
    my $nl = "";

    Nicholas Clark

    --- lib/Text/Wrap.pm.orig 2002-11-04 06:34:39.000000000 +0000
    +++ lib/Text/Wrap.pm 2003-08-13 21:58:35.000000000 +0100
    @@ -6,7 +6,7 @@ require Exporter;
    @EXPORT = qw(wrap fill);
    @EXPORT_OK = qw($columns $break $huge);

    -$VERSION = 2001.0929;
    +$VERSION = 2002.1104;

    use vars qw($VERSION $columns $debug $break $huge $unexpand $tabstop
    $separator);
  • Nicholas Clark at Aug 13, 2003 at 9:16 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/Hash/Util.pm
    ./lib/Net/hostent.pm
    ./lib/Net/servent.pm
    ./lib/SelfLoader.pm
    is unchanged
    ./lib/Text/Abbrev.pm
    ./lib/Thread/Semaphore.pm
    ./lib/Tie/Array.pm
    ./lib/Tie/RefHash.pm
    ./lib/UNIVERSAL.pm
    ./lib/Unicode/UCD.pm
    Nicholas Clark

    --- ./lib/Hash/Util.pm.orig 2003-04-27 08:27:27.000000000 +0100
    +++ ./lib/Hash/Util.pm 2003-08-13 21:33:41.000000000 +0100
    @@ -9,7 +9,7 @@ our @ISA = qw(Exporter);
    our @EXPORT_OK = qw(lock_keys unlock_keys lock_value unlock_value
    lock_hash unlock_hash
    );
    -our $VERSION = 0.04;
    +our $VERSION = 0.05;

    =head1 NAME

    --- ./lib/Net/hostent.pm.orig 2002-11-04 06:34:38.000000000 +0000
    +++ ./lib/Net/hostent.pm 2003-08-13 21:45:11.000000000 +0100
    @@ -2,7 +2,7 @@ package Net::hostent;
    use strict;

    use 5.006_001;
    -our $VERSION = '1.00';
    +our $VERSION = '1.01';
    our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    BEGIN {
    use Exporter ();
    --- ./lib/Net/servent.pm.orig 2003-03-27 05:38:31.000000000 +0000
    +++ ./lib/Net/servent.pm 2003-08-13 21:45:08.000000000 +0100
    @@ -2,7 +2,7 @@ package Net::servent;
    use strict;

    use 5.006_001;
    -our $VERSION = '1.00';
    +our $VERSION = '1.01';
    our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    BEGIN {
    use Exporter ();
    --- ./lib/Text/Abbrev.pm.orig 2003-04-01 18:49:55.000000000 +0100
    +++ ./lib/Text/Abbrev.pm 2003-08-13 22:02:44.000000000 +0100
    @@ -2,7 +2,7 @@ package Text::Abbrev;
    require 5.005; # Probably works on earlier versions too.
    require Exporter;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    =head1 NAME

    --- ./lib/Thread/Semaphore.pm.orig 2003-06-26 07:53:21.000000000 +0100
    +++ ./lib/Thread/Semaphore.pm 2003-08-13 22:02:39.000000000 +0100
    @@ -2,7 +2,7 @@ package Thread::Semaphore;

    use threads::shared;

    -our $VERSION = '2.00';
    +our $VERSION = '2.01';

    =head1 NAME

    --- ./lib/Tie/Array.pm.orig 2002-11-04 06:34:39.000000000 +0000
    +++ ./lib/Tie/Array.pm 2003-08-13 22:02:36.000000000 +0100
    @@ -3,7 +3,7 @@ package Tie::Array;
    use 5.006_001;
    use strict;
    use Carp;
    -our $VERSION = '1.02';
    +our $VERSION = '1.03';

    # Pod documentation after __END__ below.

    --- ./lib/Tie/RefHash.pm.orig 2003-07-31 08:00:02.000000000 +0100
    +++ ./lib/Tie/RefHash.pm 2003-08-13 22:02:33.000000000 +0100
    @@ -1,6 +1,6 @@
    package Tie::RefHash;

    -our $VERSION = 1.30;
    +our $VERSION = 1.31;

    =head1 NAME

    --- ./lib/UNIVERSAL.pm.orig 2003-04-28 11:28:53.000000000 +0100
    +++ ./lib/UNIVERSAL.pm 2003-08-13 22:07:22.000000000 +0100
    @@ -1,6 +1,6 @@
    package UNIVERSAL;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    # UNIVERSAL should not contain any extra subs/methods beyond those
    # that it exists to define. The use of Exporter below is a historical
    --- ./lib/Unicode/UCD.pm.orig 2003-08-11 08:53:57.000000000 +0100
    +++ ./lib/Unicode/UCD.pm 2003-08-13 22:08:40.000000000 +0100
    @@ -3,7 +3,7 @@ package Unicode::UCD;
    use strict;
    use warnings;

    -our $VERSION = '0.2';
    +our $VERSION = '0.21';

    use Storable qw(dclone);
  • Nicholas Clark at Aug 13, 2003 at 9:20 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./lib/warnings.pm
    diff is

    @@ -292,5 +292,5 @@ sub Croaker
    {
    delete $Carp::CarpInternal{'warnings'};
    - croak @_ ;
    + croak(@_);
    }

    Nicholas Clark

    --- warnings.pl.orig 2002-11-09 20:12:31.000000000 +0000
    +++ warnings.pl 2003-08-13 22:17:55.000000000 +0100
    @@ -474,7 +474,7 @@ __END__

    package warnings;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    =head1 NAME
  • Nicholas Clark at Aug 13, 2003 at 9:33 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:

    ./lib/attributes.pm
    ./lib/base.pm
    ./lib/diagnostics.pm
    ./lib/fields.pm
    ./lib/filetest.pm
    ./lib/open.pm
    ./lib/overload.pm
    ./lib/utf8.pm
    ./lib/vmsish.pm
    Nicholas Clark

    --- ./lib/attributes.pm.orig 2003-04-12 21:00:10.000000000 +0100
    +++ ./lib/attributes.pm 2003-08-13 22:22:23.000000000 +0100
    @@ -1,6 +1,6 @@
    package attributes;

    -our $VERSION = 0.05;
    +our $VERSION = 0.06;

    @EXPORT_OK = qw(get reftype);
    @EXPORT = ();
    --- ./lib/base.pm.orig 2003-04-12 21:00:10.000000000 +0100
    +++ ./lib/base.pm 2003-08-13 22:22:19.000000000 +0100
    @@ -45,7 +45,7 @@ L<fields>
    package base;

    use 5.006_001;
    -our $VERSION = "1.03";
    +our $VERSION = "1.04";

    sub import {
    my $class = shift;
    --- ./lib/diagnostics.pm.orig 2003-03-17 20:25:16.000000000 +0000
    +++ ./lib/diagnostics.pm 2003-08-13 22:22:08.000000000 +0100
    @@ -171,7 +171,7 @@ use strict;
    use 5.006;
    use Carp;

    -our $VERSION = 1.1;
    +our $VERSION = 1.11;
    our $DEBUG;
    our $VERBOSE;
    our $PRETTY;
    --- ./lib/fields.pm.orig 2003-03-17 12:19:26.000000000 +0000
    +++ ./lib/fields.pm 2003-08-13 22:22:03.000000000 +0100
    @@ -141,7 +141,7 @@ no strict 'refs';
    use warnings::register;
    our(%attr, $VERSION);

    -$VERSION = "1.03";
    +$VERSION = "1.04";

    # some constants
    sub _PUBLIC () { 1 }
    --- ./lib/filetest.pm.orig 2003-05-04 10:31:23.000000000 +0100
    +++ ./lib/filetest.pm 2003-08-13 22:21:58.000000000 +0100
    @@ -1,6 +1,6 @@
    package filetest;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    =head1 NAME

    --- ./lib/open.pm.orig 2003-05-24 10:05:11.000000000 +0100
    +++ ./lib/open.pm 2003-08-13 22:21:55.000000000 +0100
    @@ -3,7 +3,7 @@ use warnings;
    use Carp;
    $open::hint_bits = 0x20000; # HINT_LOCALIZE_HH

    -our $VERSION = '1.01';
    +our $VERSION = '1.02';

    my $locale_encoding;

    --- ./lib/overload.pm.orig 2003-06-22 21:56:24.000000000 +0100
    +++ ./lib/overload.pm 2003-08-13 22:21:50.000000000 +0100
    @@ -1,6 +1,6 @@
    package overload;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    $overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH

    --- ./lib/utf8.pm.orig 2003-06-15 20:14:24.000000000 +0100
    +++ ./lib/utf8.pm 2003-08-13 22:21:47.000000000 +0100
    @@ -2,7 +2,7 @@ package utf8;

    $utf8::hint_bits = 0x00800000;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    sub import {
    $^H |= $utf8::hint_bits;
    --- ./lib/vmsish.pm.orig 2002-12-02 14:35:16.000000000 +0000
    +++ ./lib/vmsish.pm 2003-08-13 22:21:43.000000000 +0100
    @@ -1,6 +1,6 @@
    package vmsish;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    =head1 NAME
  • Nicholas Clark at Aug 13, 2003 at 9:49 pm

    On Wed, Aug 13, 2003 at 09:30:34PM +0300, Jarkko Hietaniemi wrote:
    Below is the "non-diff" from 5.8.0 to blead@20681. Take your pick.
    ./os2/OS2/Process/Process.pm
    ./os2/OS2/REXX/DLL/DLL.pm
    ./t/TestInit.pm
    ./t/lib/MakeMaker/Test/Utils.pm
    ./t/lib/Math/BigInt/BareCalc.pm
    ./vms/ext/Filespec.pm
    I think that this completes the list.
    Although I didn't (couldn't) send patches for lib/Locale/*

    Nicholas Clark

    --- ./os2/OS2/Process/Process.pm.orig 2003-06-15 20:14:24.000000000 +0100
    +++ ./os2/OS2/Process/Process.pm 2003-08-13 22:34:31.000000000 +0100
    @@ -20,7 +20,7 @@ BEGIN {
    #require AutoLoader;

    our @ISA = qw(Exporter);
    - our $VERSION = "1.0";
    + our $VERSION = "1.01";
    XSLoader::load('OS2::Process', $VERSION);
    }

    --- ./os2/OS2/REXX/DLL/DLL.pm.orig 2003-06-15 20:14:24.000000000 +0100
    +++ ./os2/OS2/REXX/DLL/DLL.pm 2003-08-13 22:34:26.000000000 +0100
    @@ -1,6 +1,6 @@
    package OS2::DLL;

    -our $VERSION = '1.00';
    +our $VERSION = '1.01';

    use Carp;
    use XSLoader;
    --- vms/ext/Filespec.pm.orig 2003-07-24 16:52:10.000000000 +0100
    +++ vms/ext/Filespec.pm 2003-08-13 22:35:13.000000000 +0100
    @@ -128,7 +128,7 @@ This document was last revised 22-Feb-19
    package VMS::Filespec;
    require 5.002;

    -our $VERSION = '1.1';
    +our $VERSION = '1.11';

    # If you want to use this package on a non-VMS system,
    # uncomment the following line.
    --- t/TestInit.pm.orig 2003-07-03 21:34:56.000000000 +0100
    +++ t/TestInit.pm 2003-08-13 22:36:48.000000000 +0100
    @@ -15,6 +15,8 @@

    package TestInit;

    +$VERSION = 1.01;
    +
    chdir 't' if -d 't';
    @INC = '../lib';

    --- t/lib/MakeMaker/Test/Utils.pm.orig 2003-04-08 19:56:17.000000000 +0100
    +++ t/lib/MakeMaker/Test/Utils.pm 2003-08-13 22:37:45.000000000 +0100
    @@ -9,7 +9,7 @@ use vars qw($VERSION @ISA @EXPORT);
    require Exporter;
    @ISA = qw(Exporter);

    -$VERSION = 0.02;
    +$VERSION = 0.03;

    @EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
    make make_run run make_macro calibrate_mtime
    --- t/lib/Math/BigInt/BareCalc.pm.orig 2003-07-05 16:14:19.000000000 +0100
    +++ t/lib/Math/BigInt/BareCalc.pm 2003-08-13 22:37:42.000000000 +0100
    @@ -8,7 +8,7 @@ require Exporter;
    use vars qw/@ISA $VERSION/;
    @ISA = qw(Exporter);

    -$VERSION = '0.02';
    +$VERSION = '0.03';

    # Package to to test Bigint's simulation of Calc
  • Jarkko Hietaniemi at Aug 13, 2003 at 3:11 pm
    Slaven's script is now in both perl-current and perl-5.8.x,
    as Porting/cmpVERSION.pl.

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Jarkko Hietaniemi at Aug 13, 2003 at 4:02 pm

    On Wed, Aug 13, 2003 at 02:36:54PM +0000, slaven@rezic.de wrote:
    Jarkko Hietaniemi wrote:
    (Regarding Johan's recent confusion with File::Find)

    Compare two Perl source trees, find the .pm files, warn if they have
    the same $VERSION (note: which $VERSION...?), but are different.

    "Test" input: Perl 5.8.0 and bleadperl trees.

    There's already Porting/checkVERSION.pl that might be useful, it warns
    about .pm that do not have a $VERSION.
    perl -MExtUtils::MakeMaker -MFile::Compare -MFile::Find -MFile::Spec::Functions=rel2abs,abs2rel -e '$dir2 = rel2abs($ARGV[1]); chdir $ARGV[0]; find(sub { /\.pm$/ && do { $file2 = "$dir2/$File::Find::name"; return if compare($_,$file2) == 0; $version1 = eval {MM->parse_version($_)}; $version2 = eval {MM->parse_version($file2)}; warn "$File::Find::name" if $version1 eq $version2 } }, ".")' perl-5.8.0 perl-5.8.x
    Thanks!

    You want it in one line? Does it have to fit in 80 columns?
    -- Larry Wall

    --
    Jarkko Hietaniemi <jhi@iki.fi> http://www.iki.fi/jhi/ "There is this special
    biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
  • Slaven Rezic at Aug 13, 2003 at 9:23 pm

    Jarkko Hietaniemi writes:
    On Wed, Aug 13, 2003 at 02:36:54PM +0000, slaven@rezic.de wrote:
    Jarkko Hietaniemi wrote:
    (Regarding Johan's recent confusion with File::Find)

    Compare two Perl source trees, find the .pm files, warn if they have
    the same $VERSION (note: which $VERSION...?), but are different.

    "Test" input: Perl 5.8.0 and bleadperl trees.

    There's already Porting/checkVERSION.pl that might be useful, it warns
    about .pm that do not have a $VERSION.
    perl -MExtUtils::MakeMaker -MFile::Compare -MFile::Find -MFile::Spec::Functions=rel2abs,abs2rel -e '$dir2 = rel2abs($ARGV[1]); chdir $ARGV[0]; find(sub { /\.pm$/ && do { $file2 = "$dir2/$File::Find::name"; return if compare($_,$file2) == 0; $version1 = eval {MM->parse_version($_)}; $version2 = eval {MM->parse_version($file2)}; warn "$File::Find::name" if $version1 eq $version2 } }, ".")' perl-5.8.0 perl-5.8.x
    Thanks!

    You want it in one line? Does it have to fit in 80 columns?
    -- Larry Wall
    It was only one line in my mailer :-)

    Regards,
    Slaven

    --
    Slaven Rezic - slaven@rezic.de
    BBBike - route planner for cyclists in Berlin
    WWW version: http://www.bbbike.de
    Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net
  • H.Merijn Brand at Aug 13, 2003 at 2:59 pm

    On Wed 13 Aug 2003 16:20, Jarkko Hietaniemi wrote:
    (Regarding Johan's recent confusion with File::Find)

    Compare two Perl source trees, find the .pm files, warn if they have
    the same $VERSION (note: which $VERSION...?), but are different.

    "Test" input: Perl 5.8.0 and bleadperl trees.

    There's already Porting/checkVERSION.pl that might be useful, it warns
    about .pm that do not have a $VERSION.
    a5:/pro/3gl/CPAN 119 > vck.pl perl-5.6.1 perl-current
    CGI/Push.pm 1.04 1.04
    DB.pm 1.0 1.0
    IO/IO.pm 1.20 1.20
    IPC/Open2.pm 1.01 1.01
    NDBM_File/NDBM_File.pm 1.04 1.04
    ODBM_File/ODBM_File.pm 1.03 1.03
    Pod/InputObjects.pm 1.13 1.13
    Pod/Parser.pm 1.13 1.13
    Pod/Plainer.pm 0.01 0.01
    Pod/Select.pm 1.13 1.13
    SDBM_File/SDBM_File.pm 1.03 1.03
    Sys/Hostname/Hostname.pm 1.1 1.1
    Text/Tabs.pm 98.112801 98.112801
    XSSymSet.pm 1.0 1.0
    jpl/JNI/JNI.pm 0.1 0.1
    sigtrap.pm 1.02 1.02
    a5:/pro/3gl/CPAN 120 >

    a5:/pro/3gl/CPAN 125 > vck.pl perl-5.8.0 perl-5.8.x
    AnyDBM_File.pm 1.00 1.00
    Attribute/Handlers/demo/Demo.p 1.00 1.00
    Attribute/Handlers/demo/Descri 1.00 1.00
    Attribute/Handlers/demo/MyClas 1.00 1.00
    AutoSplit.pm 1.0307 1.0307
    B/Asmdata.pm 1.00 1.00
    B/Assembler.pm 0.04 0.04
    B/B.pm 1.01 1.01
    B/Bblock.pm 1.00 1.00
    B/C.pm 1.01 1.01
    B/CC.pm 1.00 1.00
    B/Debug.pm 1.00 1.00
    B/Disassembler.pm 1.01 1.01
    B/Lint.pm 1.01 1.01
    B/O.pm 1.00 1.00
    B/Showlex.pm 1.00 1.00
    B/Stackobj.pm 1.00 1.00
    B/Stash.pm 1.00 1.00
    B/Xref.pm 1.01 1.01
    CGI/Apache.pm 1.00 1.00
    CGI/Fast.pm 1.04 1.04
    CGI/Push.pm 1.04 1.04
    CGI/Switch.pm 1.00 1.00
    CGI/Util.pm 1.3 1.3
    CPAN/Nox.pm 1.02 1.02
    Carp.pm 1.01 1.01
    Carp/Heavy.pm 1 1
    Class/ISA.pm 0.32 0.32
    Cwd.pm 2.06 2.06
    DB.pm 1.0 1.0
    DCLsym/DCLsym.pm 1.02 1.02
    Data/Dumper/Dumper.pm 2.12 2.12
    Devel/Peek/Peek.pm 1.0003 1.0003
    Devel/SelfStubber.pm 1.03 1.03
    DirHandle.pm 1.00 1.00
    Dumpvalue.pm 1.11 1.11
    Encode/CN/CN.pm 1.24 1.24
    Encode/EBCDIC/EBCDIC.pm 1.21 1.21
    Encode/JP/H2Z.pm 1.2 1.2
    Encode/JP/JP.pm 1.25 1.25
    Encode/Symbol/Symbol.pm 1.22 1.22
    Encode/TW/TW.pm 1.26 1.26
    English.pm 1.00 1.00
    Env.pm 1.00 1.00
    Exporter/Heavy.pm 1 1
    ExtUtils/Embed.pm 1.250601 1.250601
    ExtUtils/MM.pm 0.04 0.04
    ExtUtils/MY.pm 0.01 0.01
    ExtUtils/Mkbootstrap.pm 1.15 1.15
    ExtUtils/Mksymlists.pm 1.19 1.19
    ExtUtils/Packlist.pm 0.04 0.04
    ExtUtils/testlib.pm 1.15 1.15
    Fatal.pm 1.03 1.03
    Fcntl/Fcntl.pm 1.04 1.04
    File/Basename.pm 2.71 2.71
    File/CheckTree.pm 4.2 4.2
    File/Compare.pm 1.1003 1.1003
    File/Copy.pm 2.05 2.05
    File/DosGlob.pm 1.00 1.00
    File/Find.pm 1.04 1.04
    File/Glob/Glob.pm 1.01 1.01
    File/Path.pm 1.05 1.05
    File/Spec/Cygwin.pm 1.0 1.0
    File/Spec/Unix.pm 1.4 1.4
    File/Temp.pm 0.13 0.13
    File/stat.pm 1.00 1.00
    FileHandle.pm 2.01 2.01
    Filespec.pm 1.1 1.1
    Filter/Simple.pm 0.78 0.78
    Filter/Util/Call/Call.pm 1.06 1.06
    FindBin.pm 1.43 1.43
    Hash/Util.pm 0.04 0.04
    I18N/Collate.pm 1.00 1.00
    I18N/Langinfo/Langinfo.pm 0.01 0.01
    IO/Dir.pm 1.0300 1.0300
    IO/File.pm 1.09 1.09
    IO/Handle.pm 1.2100 1.2100
    IO/IO.pm 1.20 1.20
    IO/Pipe.pm 1.122 1.122
    IO/Poll.pm 0.06 0.06
    IO/Seekable.pm 1.0800 1.0800
    IO/Select.pm 1.15 1.15
    IO/Socket.pm 1.27 1.27
    IO/Socket/INET.pm 1.26 1.26
    IO/Socket/UNIX.pm 1.2000 1.2000
    IPC/Open2.pm 1.01 1.01
    IPC/SysV/Msg.pm 1.0000 1.0000
    IPC/SysV/Semaphore.pm 1.0000 1.0000
    IPC/SysV/SysV.pm 1.0300 1.0300
    Locale/Constants.pm 2.1 2.1
    Locale/Country.pm 2.6 2.6
    Locale/Currency.pm 2.2 2.2
    Locale/Language.pm 2.2 2.2
    Locale/Script.pm 2.2 2.2
    MakeMaker/Test/Utils.pm 0.02 0.02
    Math/BigFloat/Trace.pm 0.01 0.01
    Math/BigInt/BareCalc.pm 0.02 0.02
    Math/BigInt/Trace.pm 0.01 0.01
    Math/BigRat/Test.pm 0.03 0.03
    Math/Complex.pm 1.34 1.34
    Memoize.pm 1.01 1.01
    Memoize/AnyDBM_File.pm 0.65 0.65
    Memoize/Expire.pm 1.00 1.00
    Memoize/ExpireFile.pm 1.01 1.01
    Memoize/ExpireTest.pm 0.65 0.65
    Memoize/NDBM_File.pm 0.65 0.65
    Memoize/SDBM_File.pm 0.65 0.65
    Memoize/Storable.pm 0.65 0.65
    NDBM_File/NDBM_File.pm 1.04 1.04
    Net/Config.pm 1.10 1.10
    Net/FTP/E.pm 0.01 0.01
    Net/FTP/I.pm 1.12 1.12
    Net/FTP/L.pm 0.01 0.01
    Net/FTP/dataconn.pm 0.11 0.11
    Net/Netrc.pm 2.12 2.12
    Net/Time.pm 2.09 2.09
    Net/hostent.pm 1.00 1.00
    Net/netent.pm 1.00 1.00
    Net/protoent.pm 1.00 1.00
    Net/servent.pm 1.00 1.00
    ODBM_File/ODBM_File.pm 1.03 1.03
    Opcode/Opcode.pm 1.05 1.05
    Opcode/ops.pm 1.00 1.00
    POSIX/POSIX.pm 1.05 1.05
    PerlIO/scalar/scalar.pm 0.01 0.01
    PerlIO/via/QuotedPrint.pm 0.04 0.04
    Pod/InputObjects.pm 1.13 1.13
    Pod/ParseLink.pm 1.06 1.06
    Pod/Parser.pm 1.13 1.13
    Pod/Plainer.pm 0.01 0.01
    Pod/Select.pm 1.13 1.13
    Pod/Text/Color.pm 1.04 1.04
    SDBM_File/SDBM_File.pm 1.03 1.03
    Scalar/Util.pm 1 1
    Search/Dict.pm 1.02 1.02
    SelectSaver.pm 1.00 1.00
    SelfLoader.pm 1.0903 1.0903
    Socket/Socket.pm 1.75 1.75
    Stdio/Stdio.pm 2.3 2.3
    Switch.pm 2.09 2.09
    Symbol.pm 1.04 1.04
    Sys/Hostname/Hostname.pm 1.1 1.1
    Sys/Syslog/Syslog.pm 0.03 0.03
    Test/Harness/Assert.pm 0.01 0.01
    Test/Harness/Iterator.pm 0.01 0.01
    Test/Harness/Straps.pm 0.14 0.14
    Text/Abbrev.pm 1.00 1.00
    Text/ParseWords.pm 3.21 3.21
    Text/Soundex.pm 1.01 1.01
    Text/Tabs.pm 98.112801 98.112801
    Text/Wrap.pm 2001.0929 2001.0929
    Thread.pm 2.00 2.00
    Thread/Queue.pm 2.00 2.00
    Thread/Semaphore.pm 2.00 2.00
    Thread/Signal.pm 1.00 1.00
    Thread/Specific.pm 1.00 1.00
    Tie/Array.pm 1.02 1.02
    Tie/Handle.pm 4.1 4.1
    Tie/Hash.pm 1.00 1.00
    Tie/Memoize.pm 1.0 1.0
    Tie/RefHash.pm 1.30 1.30
    Tie/Scalar.pm 1.00 1.00
    Tie/SubstrHash.pm 1.00 1.00
    Time/gmtime.pm 1.02 1.02
    Time/localtime.pm 1.02 1.02
    Time/tm.pm 1.00 1.00
    UNIVERSAL.pm 1.00 1.00
    Unicode/UCD.pm 0.2 0.2
    User/grent.pm 1.00 1.00
    User/pwent.pm 1.00 1.00
    XS/Typemap/Typemap.pm 0.01 0.01
    XSSymSet.pm 1.0 1.0
    attributes.pm 0.05 0.05
    attrs/attrs.pm 1.01 1.01
    autouse.pm 1.03 1.03
    base.pm 1.03 1.03
    blib.pm 1.02 1.02
    bytes.pm 1.00 1.00
    constant.pm 1.04 1.04
    diagnostics.pm 1.1 1.1
    filetest.pm 1.00 1.00
    integer.pm 1.00 1.00
    jpl/JNI/JNI.pm 0.1 0.1
    less.pm 0.01 0.01
    locale.pm 1.00 1.00
    open.pm 1.01 1.01
    os2/OS2/Process/Process.pm 1.0 1.0
    os2/OS2/REXX/DLL/DLL.pm 1.00 1.00
    overload.pm 1.00 1.00
    re/re.pm 0.03 0.03
    sigtrap.pm 1.02 1.02
    subs.pm 1.00 1.00
    threads/shared/shared.pm 0.90 0.90
    threads/threads.pm 0.99 0.99
    utf8.pm 1.00 1.00
    vars.pm 1.01 1.01
    vmsish.pm 1.00 1.00
    warnings.pm 1.00 1.00
    warnings/register.pm 1.00 1.00
    win32/FindExt.pm 1.00 1.00
    a5:/pro/3gl/CPAN 126 >



    --8<--- vck.pl
    #!/pro/bin/perl

    use strict;
    use warnings;

    sub usage ()
    {
    print STDERR "vck.pl tree-1 tree-2\n";
    exit;
    } # usage

    @ARGV == 1 and $ARGV[0] eq "-?" || $ARGV[0] =~ m/^-+help$/ and usage;

    use File::Find;
    use Getopt::Long qw(:config nopermute bundling);
    my $opt_v = 0;
    GetOptions (
    "v:1" => \$opt_v,
    ) or exit;
    @ARGV == 2 or usage;
    my ($tree1, $tree2) = @ARGV;
    my (%tree1, %tree2);

    sub find_pm ($\%)
    {
    my ($tree, $hash) = @_;

    find (sub {
    m/\.pm$/ or return;
    (my $pm = $File::Find::name) =~ s{^$tree/}{};
    $opt_v > 4 and printf STDERR "%-40.40s ", $File::Find::name;
    $pm =~ s{^.*\b(lib|ext)/}{};
    $pm =~ s{^([^/]+)/\1/}{$1/};
    $opt_v > 3 and print STDERR "$pm\n";
    local $/;
    if (open my $x, "< $_") {
    <$x> =~ m/\$(?:[\w:]+::)?VERSION\s*=(?:
    \s*["']? # "
    \s*(?:\(\s*)? (?:substr\s*)? q[wq]?\s*\S[^._\d]*
    .*?(?i:version\D)
    .*?[^\d%])
    ([\d._]*\d)/sx;
    my $iv = $1 // ""; # // does not work in 5.6.1 and such :(
    $opt_v > 3 and printf STDERR "\t%7s\n", $iv;
    $iv =~ m/\d/ or return;
    $iv =~ s/^(?!.*\.)(\d+)_(\d+)$/$1.$2/;
    $iv =~ s/_//g;
    $hash->{$pm} ||= $iv;
    }
    }, $tree);
    } # find_pm

    find_pm ($tree1, %tree1);
    find_pm ($tree2, %tree2);

    foreach my $m (sort keys %tree1) {
    exists $tree2{$m} or next;
    my ($v1, $v2) = ($tree1{$m}, $tree2{$m});
    unless ($v1 eq $v2) {
    $opt_v > 2 and printf STDERR "%-30.30s %13s * %13s\n", $m, $v1, $v2;
    next;
    }
    printf "%-30.30s %13s %15s\n", $m, $v1, $v2;
    }
    -->8---

    --
    H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
    using perl-5.6.1, 5.8.0 & 633 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
    WinNT 4, Win2K pro & WinCE 2.11. Smoking perl CORE: smokers@perl.org
    http://archives.develooper.com/daily-build@perl.org/ perl-qa@perl.org
    send smoke reports to: smokers-reports@perl.org, QA: http://qa.perl.org
  • Nick Ing-Simmons at Aug 13, 2003 at 3:12 pm

    Jarkko Hietaniemi writes:
    (Regarding Johan's recent confusion with File::Find)

    Compare two Perl source trees, find the .pm files, warn if they have
    the same $VERSION (note: which $VERSION...?), but are different.

    "Test" input: Perl 5.8.0 and bleadperl trees.

    There's already Porting/checkVERSION.pl that might be useful, it warns
    about .pm that do not have a $VERSION.
    I am not 100% sure this is a good idea but in Tk I have recently
    switched to a variant of the "CVS revision as VERSION" scheme,
    adapted a bit for Perforce:

    $VERSION = sprintf '4.%03d', q$Revision: #24 $ =~ /\D(\d+)\s*$/;

    (I am not sure if perl server is new enough to do $Revision$)

    Snag is that perforce only gives you one number so the other
    one needs to be canned.
  • Tels at Aug 13, 2003 at 5:34 pm
    -----BEGIN PGP SIGNED MESSAGE-----

    Moin,
    Math/BigFloat/Trace.pm 0.01 0.01
    Math/BigInt/BareCalc.pm 0.02 0.02
    Math/BigInt/Trace.pm 0.01 0.01
    Math/BigRat/Test.pm 0.03 0.03
    Damn, I released v1.65 minutes ago - that just proves that even after waiting
    a year or longer, a bug will be reported just after you released a new
    version.

    In any event, these are just modules for the testsuite, and so they are not
    very important...

    Best wishes,

    Tels

    - --
    Signed on Wed Aug 13 19:33:13 2003 with key 0x93B84C15.
    PGP key on http://bloodgate.com/tels.asc or per email.

    "Yeah, baby, yeah!"
  • Mike Guy at Aug 14, 2003 at 2:45 pm
    slaven@rezic.de wrote
    + if (-e $xs_file1 && -e $xs_file2) {
    Perhaps you should also return "differs" if

    -e $xs_file1 xor -e $xs_file2
    ?


    Mike Guy

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-porters @
categoriesperl
postedAug 13, '03 at 2:20p
activeAug 14, '03 at 7:35p
posts43
users12
websiteperl.org

People

Translate

site design / logo © 2022 Grokbase