r3382 - in /packages/libmodule-corelist-perl/trunk: Changes META.yml Makefile.PL README corelist debian/changelog debian/control lib/Module/CoreList.pm

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Wed Aug 2 14:42:33 UTC 2006


Author: eloy
Date: Wed Aug  2 14:42:32 2006
New Revision: 3382

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3382
Log:
eloy: new upstream version

Modified:
    packages/libmodule-corelist-perl/trunk/Changes
    packages/libmodule-corelist-perl/trunk/META.yml
    packages/libmodule-corelist-perl/trunk/Makefile.PL
    packages/libmodule-corelist-perl/trunk/README
    packages/libmodule-corelist-perl/trunk/corelist
    packages/libmodule-corelist-perl/trunk/debian/changelog
    packages/libmodule-corelist-perl/trunk/debian/control
    packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm

Modified: packages/libmodule-corelist-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/Changes?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/Changes (original)
+++ packages/libmodule-corelist-perl/trunk/Changes Wed Aug  2 14:42:32 2006
@@ -1,3 +1,9 @@
+2.06	Tue Aug  1 2006
+	Patches by Marius Feraru :
+	- handle dotted perl versions (e.g. 5.8.6)
+	- add an easy way to determine what was some module's version bundled
+	  with a specified Perl release
+
 2.05	Tue Jun  6 2006
 	Patches by Adriano Ferreira :
 	- corelist utility accepts regexes as arguments, eg. /IPC::Open/

Modified: packages/libmodule-corelist-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/META.yml?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/META.yml (original)
+++ packages/libmodule-corelist-perl/trunk/META.yml Wed Aug  2 14:42:32 2006
@@ -1,11 +1,12 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Module-CoreList
-version:      2.05
+version:      2.06
 version_from: lib/Module/CoreList.pm
 installdirs:  site
 requires:
     Test::More:                    0
+    version:                       0
 
 distribution_type: module
 generated_by: ExtUtils::MakeMaker version 6.30_01

Modified: packages/libmodule-corelist-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/Makefile.PL?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/Makefile.PL (original)
+++ packages/libmodule-corelist-perl/trunk/Makefile.PL Wed Aug  2 14:42:32 2006
@@ -7,7 +7,8 @@
     'NAME' => 'Module::CoreList',
     'VERSION_FROM' => 'lib/Module/CoreList.pm',
     'PREREQ_PM' => {
-	'Test::More' => '0'
+	'Test::More' => '0',
+	'version' => '0',
     },
     'EXE_FILES' => [ 'corelist' ],
     'PL_FILES' => {},

Modified: packages/libmodule-corelist-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/README?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/README (original)
+++ packages/libmodule-corelist-perl/trunk/README Wed Aug  2 14:42:32 2006
@@ -1,4 +1,4 @@
-README for Module::CoreList 2.04
+README for Module::CoreList 2.06
 
 =head1 NAME
 
@@ -35,24 +35,7 @@
 
 =head1 HISTORY
 
-What changed over the last 3 revisions
-
-=over
-
-=item 2.04	Thursday 2nd February, 2006
-
-	Fix patchlevel for 5.8.8 (Gisle Aas)
-	Silence warnings in corelist utility
-
-=item 2.03	Wednesday 1st February, 2006
-
-	Include data for perl 5.9.3 and 5.8.8
-
-=item 2.02	Tuesday 31th May, 2005
-
-	Include data for perl 5.8.7
-
-=back
+See the F<Changes> file.
 
 =head1 AUTHOR
 

Modified: packages/libmodule-corelist-perl/trunk/corelist
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/corelist?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/corelist (original)
+++ packages/libmodule-corelist-perl/trunk/corelist Wed Aug  2 14:42:32 2006
@@ -10,8 +10,9 @@
 
 =head1 SYNOPSIS
 
-    corelist [-a] [ Modulename [ version ]] [ /Modulenameregex/ [ version ] ] ...
-    corelist [-v [ version ]]
+    corelist -v [<PerlVersion>]
+    corelist [-a] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
+    corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleNameRegex>/ ] ...
 
 =head1 OPTIONS
 
@@ -55,6 +56,8 @@
 If you pass a version argument (value of C<$]>, like 5.00503),
 you get a list of all the modules and their respective versions.
 
+In module filtering context, it can be used as Perl version filter.
+
 =back
 
 =cut
@@ -64,6 +67,7 @@
 use Pod::Usage;
 use strict;
 use warnings;
+use version ();
 
 my %Opts;
 
@@ -73,22 +77,33 @@
 pod2usage(-verbose=>2) if $Opts{man};
 
 if(exists $Opts{v} ){
-    if( $Opts{v} ) {
-        if( exists $Module::CoreList::version{$Opts{v}} ) {
-            print "\nThe following modules were in perl v$Opts{v} CORE\n";
-            print "$_ ", $Module::CoreList::version{$Opts{v}}{$_} || " ","\n"
-                for sort keys %{$Module::CoreList::version{$Opts{v}}};
-            print "\n";
-        } else {
-            print "\nModule::CoreList has no info on perl v$Opts{v}\n\n";
-        }
-    } else {
+    if( !$Opts{v} ) {
         print "\nModule::CoreList has info on the following perl versions:\n";
         print "$_\n" for sort keys %Module::CoreList::version;
         print "\n";
-    }
-} elsif (@ARGV) {
-    while (@ARGV) {
+        exit 0;
+    }
+
+    $Opts{v} = numify_version( $Opts{v} );
+    if( !exists $Module::CoreList::version{$Opts{v}} ) {
+        print "\nModule::CoreList has no info on perl v$Opts{v}\n\n";
+        exit 1;
+    }
+
+    if ( !@ARGV ) {
+	print "\nThe following modules were in perl v$Opts{v} CORE\n";
+	print "$_ ", $Module::CoreList::version{$Opts{v}}{$_} || " ","\n"
+	for sort keys %{$Module::CoreList::version{$Opts{v}}};
+	print "\n";
+	exit 0;
+    }
+}
+
+if ( !@ARGV ) {
+    pod2usage(0);
+}
+
+while (@ARGV) {
 	my ($mod, $ver);
 	if ($ARGV[0] =~ /=/) {
 	    ($mod, $ver) = split /=/, shift @ARGV;
@@ -118,16 +133,18 @@
 	    }
 
 	}
-
-    }
-} else {
-    pod2usage(0);
 }
 
 exit();
 
 sub module_version {
     my($mod,$ver) = @_;
+
+    if ( $Opts{v} ) {
+        return printf "  %-24s %-10s\n",
+            $mod,
+            $Module::CoreList::version{$Opts{v}}{$mod} || 'undef';
+    }
 
     $ver = "" unless defined $ver;
 
@@ -158,6 +175,13 @@
     }
 }
 
+sub numify_version {
+    my $ver = shift;
+    if ( index( $ver, q{.}, index( $ver, q{.} ) ) >= 0 ) {
+        $ver = version->new($ver)->numify;
+    }
+    return $ver;
+}
 
 =head1 EXAMPLES
 
@@ -191,12 +215,35 @@
 
     /Template/  has no match in CORE (or so I think)
 
+    $ corelist -v 5.8.8 B
+
+    B                        1.09_01
+
+    $ corelist -v 5.8.8 /^B::/
+
+    B::Asmdata               1.01
+    B::Assembler             0.07
+    B::Bblock                1.02_01
+    B::Bytecode              1.01_01
+    B::C                     1.04_01
+    B::CC                    1.00_01
+    B::Concise               0.66
+    B::Debug                 1.02_01
+    B::Deparse               0.71
+    B::Disassembler          1.05
+    B::Lint                  1.03
+    B::O                     1.00
+    B::Showlex               1.02
+    B::Stackobj              1.00
+    B::Stash                 1.00
+    B::Terse                 1.03_01
+    B::Xref                  1.01
 
 =head1 COPYRIGHT
 
 Copyright (c) 2002-2006 by D.H. aka PodMaster
 
-Current maintainer : Rafael Garcia-Suarez E<lt>rgarciasuarez at mandriva dot
+Current maintainer : Rafael Garcia-Suarez E<lt>rgarciasuarez at gmail dot
 comE<gt>
 
 This program is distributed under the same terms as perl itself.

Modified: packages/libmodule-corelist-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/changelog?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/changelog (original)
+++ packages/libmodule-corelist-perl/trunk/debian/changelog Wed Aug  2 14:42:32 2006
@@ -1,3 +1,11 @@
+libmodule-corelist-perl (2.06-1) unstable; urgency=low
+
+  * New upstream release
+  * debian/control:
+   + Standards-Version: increased to 3.7.2.1
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Wed,  2 Aug 2006 16:38:13 +0200
+
 libmodule-corelist-perl (2.05-1) unstable; urgency=low
 
   * New upstream release, close ITP bug (closes: #342907)
@@ -18,4 +26,3 @@
   * Initial Release.
 
  -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Sun, 11 Dec 2005 17:24:55 +0100
-

Modified: packages/libmodule-corelist-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/control?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/control (original)
+++ packages/libmodule-corelist-perl/trunk/debian/control Wed Aug  2 14:42:32 2006
@@ -5,7 +5,7 @@
 Build-Depends-Indep: perl (>= 5.8.0-7) 
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
-Standards-Version: 3.7.2
+Standards-Version: 3.7.2.1
 
 Package: libmodule-corelist-perl
 Architecture: all

Modified: packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm?rev=3382&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm (original)
+++ packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm Wed Aug  2 14:42:32 2006
@@ -1,7 +1,7 @@
 package Module::CoreList;
 use strict;
 use vars qw/$VERSION %released %patchlevel %version %families/;
-$VERSION = '2.05';
+$VERSION = '2.06';
 
 =head1 NAME
 
@@ -16,9 +16,9 @@
  print Module::CoreList->first_release('File::Spec');       # prints 5.00503
  print Module::CoreList->first_release('File::Spec', 0.82); # prints 5.006001
 
- print join ', ', Module::CoreList->find_modules(qr/Data/); 
+ print join ', ', Module::CoreList->find_modules(qr/Data/);
     # prints 'Data::Dumper'
- print join ', ', Module::CoreList->find_modules(qr/test::h.*::.*s/i, 5.008008); 
+ print join ', ', Module::CoreList->find_modules(qr/test::h.*::.*s/i, 5.008008);
     # prints 'Test::Harness::Assert, Test::Harness::Straps'
 
  print join ", ", @{ $Module::CoreList::families{5.005} };
@@ -105,7 +105,7 @@
 }
 
 sub find_modules {
-    my $discard = shift; 
+    my $discard = shift;
     my $regex = shift;
     my @perls = @_;
     @perls = keys %version unless @perls;




More information about the Pkg-perl-cvs-commits mailing list