r3380 - in
/packages/libmodule-corelist-perl/branches/upstream/current:
Changes META.yml Makefile.PL README corelist lib/Module/CoreList.pm
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Wed Aug 2 14:38:01 UTC 2006
Author: eloy
Date: Wed Aug 2 14:37:59 2006
New Revision: 3380
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3380
Log:
Load /tmp/tmp.IHiMP24663/libmodule-corelist-perl-2.06 into
packages/libmodule-corelist-perl/branches/upstream/current.
Modified:
packages/libmodule-corelist-perl/branches/upstream/current/Changes
packages/libmodule-corelist-perl/branches/upstream/current/META.yml
packages/libmodule-corelist-perl/branches/upstream/current/Makefile.PL
packages/libmodule-corelist-perl/branches/upstream/current/README
packages/libmodule-corelist-perl/branches/upstream/current/corelist
packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm
Modified: packages/libmodule-corelist-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/Changes?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/Changes (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/Changes Wed Aug 2 14:37:59 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/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/META.yml?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/META.yml (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/META.yml Wed Aug 2 14:37:59 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/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/Makefile.PL?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/Makefile.PL Wed Aug 2 14:37:59 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/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/README?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/README (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/README Wed Aug 2 14:37:59 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/branches/upstream/current/corelist
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/corelist?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/corelist (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/corelist Wed Aug 2 14:37:59 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/branches/upstream/current/lib/Module/CoreList.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm?rev=3380&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm Wed Aug 2 14:37:59 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