r3140 - in /packages/libmodule-corelist-perl/trunk: Changes MANIFEST
META.yml corelist debian/changelog debian/compat debian/control
debian/rules lib/Module/CoreList.pm t/find_modules.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Tue Jun 20 09:53:31 UTC 2006
Author: eloy
Date: Tue Jun 20 09:53:28 2006
New Revision: 3140
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3140
Log:
eloy: new upstream version
Added:
packages/libmodule-corelist-perl/trunk/t/find_modules.t
- copied unchanged from r3139, packages/libmodule-corelist-perl/branches/upstream/current/t/find_modules.t
Modified:
packages/libmodule-corelist-perl/trunk/Changes
packages/libmodule-corelist-perl/trunk/MANIFEST
packages/libmodule-corelist-perl/trunk/META.yml
packages/libmodule-corelist-perl/trunk/corelist
packages/libmodule-corelist-perl/trunk/debian/changelog
packages/libmodule-corelist-perl/trunk/debian/compat
packages/libmodule-corelist-perl/trunk/debian/control
packages/libmodule-corelist-perl/trunk/debian/rules
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=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/Changes (original)
+++ packages/libmodule-corelist-perl/trunk/Changes Tue Jun 20 09:53:28 2006
@@ -1,3 +1,8 @@
+2.05 Tue Jun 6 2006
+ Patches by Adriano Ferreira :
+ - corelist utility accepts regexes as arguments, eg. /IPC::Open/
+ - Errors when building regexes are trapped and warning is generated
+
2.04 Thursday 2nd February, 2006
Fix patchlevel for 5.8.8 (Gisle Aas)
Silence warnings in corelist utility
Modified: packages/libmodule-corelist-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/MANIFEST?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/MANIFEST (original)
+++ packages/libmodule-corelist-perl/trunk/MANIFEST Tue Jun 20 09:53:28 2006
@@ -7,4 +7,5 @@
Makefile.PL
META.yml
t/corelist.t
+t/find_modules.t
t/pod.t
Modified: packages/libmodule-corelist-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/META.yml?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/META.yml (original)
+++ packages/libmodule-corelist-perl/trunk/META.yml Tue Jun 20 09:53:28 2006
@@ -1,7 +1,7 @@
# 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.04
+version: 2.05
version_from: lib/Module/CoreList.pm
installdirs: site
requires:
Modified: packages/libmodule-corelist-perl/trunk/corelist
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/corelist?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/corelist (original)
+++ packages/libmodule-corelist-perl/trunk/corelist Tue Jun 20 09:53:28 2006
@@ -10,7 +10,7 @@
=head1 SYNOPSIS
- corelist [-a] [ Modulename [ version ]] ...
+ corelist [-a] [ Modulename [ version ]] [ /Modulenameregex/ [ version ] ] ...
corelist [-v [ version ]]
=head1 OPTIONS
@@ -96,7 +96,29 @@
$mod = shift @ARGV;
$ver = (@ARGV && $ARGV[0] =~ /^\d/) ? shift @ARGV : "";
}
- module_version($mod,$ver);
+
+ if ($mod !~ m|^/(.*)/([imosx]*)$|) { # not a regex
+ module_version($mod,$ver);
+ } else {
+ my $re;
+ eval { $re = $2 ? qr/(?$2)($1)/ : qr/$1/; }; # trap exceptions while building regex
+ if ($@) {
+ # regex errors are usually like 'Quantifier follow nothing in regex; marked by ...'
+ # then we drop text after ';' to shorten message
+ my $errmsg = $@ =~ /(.*);/ ? $1 : $@;
+ warn "\n$mod is a bad regex: $errmsg\n";
+ next;
+ }
+ my @mod = Module::CoreList->find_modules($re);
+ if (@mod) {
+ module_version($_, $ver) for @mod;
+ } else {
+ $ver |= '';
+ print "\n$mod $ver has no match in CORE (or so I think)\n";
+ }
+
+ }
+
}
} else {
pod2usage(0);
@@ -155,6 +177,21 @@
File::Spec::Aliens was not in CORE (or so I think)
+ $ corelist /IPC::Open/
+
+ IPC::Open2 was first released with perl 5
+
+ IPC::Open3 was first released with perl 5
+
+ $ corelist /MANIFEST/i
+
+ ExtUtils::Manifest was first released with perl 5.001
+
+ $ corelist /Template/
+
+ /Template/ has no match in CORE (or so I think)
+
+
=head1 COPYRIGHT
Copyright (c) 2002-2006 by D.H. aka PodMaster
Modified: packages/libmodule-corelist-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/changelog?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/changelog (original)
+++ packages/libmodule-corelist-perl/trunk/debian/changelog Tue Jun 20 09:53:28 2006
@@ -1,3 +1,12 @@
+libmodule-corelist-perl (2.05-1) unstable; urgency=low
+
+ * New upstream release, close ITP bug (closes: #342907)
+ * debian/control:
+ - Standards-Version: increased to 3.7.2 without changes
+ * debian/compat: increased to 5
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Tue, 20 Jun 2006 11:38:52 +0200
+
libmodule-corelist-perl (2.04-1) unstable; urgency=low
* New upstream release
Modified: packages/libmodule-corelist-perl/trunk/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/compat?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/compat (original)
+++ packages/libmodule-corelist-perl/trunk/debian/compat Tue Jun 20 09:53:28 2006
@@ -1,1 +1,1 @@
-4
+5
Modified: packages/libmodule-corelist-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/control?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/control (original)
+++ packages/libmodule-corelist-perl/trunk/debian/control Tue Jun 20 09:53:28 2006
@@ -1,10 +1,10 @@
Source: libmodule-corelist-perl
Section: perl
Priority: optional
-Build-Depends-Indep: perl (>= 5.8.0-7), debhelper (>= 4.0.2)
+Build-Depends-Indep: perl (>= 5.8.0-7), debhelper (>= 5.0.0)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
-Standards-Version: 3.6.2
+Standards-Version: 3.7.2
Package: libmodule-corelist-perl
Architecture: all
Modified: packages/libmodule-corelist-perl/trunk/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/trunk/debian/rules?rev=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/debian/rules (original)
+++ packages/libmodule-corelist-perl/trunk/debian/rules Tue Jun 20 09:53:28 2006
@@ -4,11 +4,6 @@
# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
# be used freely wherever it is useful.
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
export PERL_MM_USE_DEFAULT=1
PACKAGE=$(shell dh_listpackages)
@@ -22,20 +17,14 @@
build: build-stamp
build-stamp:
dh_testdir
-
- # Add commands to compile the package here
$(PERL) Makefile.PL INSTALLDIRS=vendor
$(MAKE) OPTIMIZE="-Wall -O2 -g"
-
touch build-stamp
clean:
dh_testdir
dh_testroot
-
- # Add commands to clean up after the build process here
[ ! -f Makefile ] || $(MAKE) realclean
-
dh_clean build-stamp install-stamp
install: build install-stamp
@@ -43,16 +32,9 @@
dh_testdir
dh_testroot
dh_clean -k
-
- # Add commands to install the package into debian/$PACKAGE_NAME here
$(MAKE) test
$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
-
- # As this is a architecture independent package, we are not
- # supposed to install stuff to /usr/lib. MakeMaker creates
- # the dirs, we delete them from the deb:
rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/lib/perl5
-
touch install-stamp
binary-arch:
@@ -61,8 +43,6 @@
binary-indep: build install
dh_testdir
dh_testroot
-# dh_installcron
-# dh_installmenu
# dh_installexamples
dh_installdocs README
dh_installchangelogs Changes
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=3140&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm (original)
+++ packages/libmodule-corelist-perl/trunk/lib/Module/CoreList.pm Tue Jun 20 09:53:28 2006
@@ -1,7 +1,7 @@
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
-$VERSION = '2.04';
+$VERSION = '2.05';
=head1 NAME
@@ -15,6 +15,11 @@
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/);
+ # prints 'Data::Dumper'
+ 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} };
# prints "5.005, 5.00503, 5.00504"
@@ -97,6 +102,21 @@
return unless @perls;
return (sort { $released{$a} cmp $released{$b} } @perls)[0];
+}
+
+sub find_modules {
+ my $discard = shift;
+ my $regex = shift;
+ my @perls = @_;
+ @perls = keys %version unless @perls;
+
+ my %mods;
+ foreach (@perls) {
+ while (my ($k, $v) = each %{$version{$_}}) {
+ $mods{$k}++ if $k =~ $regex;
+ }
+ }
+ return sort keys %mods
}
More information about the Pkg-perl-cvs-commits
mailing list