r14916 - in /trunk/libclass-inspector-perl: 97_meta.t 98_pod.t 99_pmv.t Changes MANIFEST META.yml debian/changelog debian/compat debian/control debian/watch lib/Class/Inspector.pm t/01_compile.t t/02_main.t t/03_inc_to_local.t t/98_pod.t t/99_pmv.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Thu Feb 14 12:04:23 UTC 2008
Author: eloy
Date: Thu Feb 14 12:04:22 2008
New Revision: 14916
URL: http://svn.debian.org/wsvn/?sc=1&rev=14916
Log:
new upstream version, preparing package for uploading
Added:
trunk/libclass-inspector-perl/97_meta.t
- copied unchanged from r14915, branches/upstream/libclass-inspector-perl/current/97_meta.t
trunk/libclass-inspector-perl/98_pod.t
- copied unchanged from r14915, branches/upstream/libclass-inspector-perl/current/98_pod.t
trunk/libclass-inspector-perl/99_pmv.t
- copied unchanged from r14915, branches/upstream/libclass-inspector-perl/current/99_pmv.t
trunk/libclass-inspector-perl/t/03_inc_to_local.t
- copied unchanged from r14915, branches/upstream/libclass-inspector-perl/current/t/03_inc_to_local.t
Removed:
trunk/libclass-inspector-perl/t/98_pod.t
trunk/libclass-inspector-perl/t/99_pmv.t
Modified:
trunk/libclass-inspector-perl/Changes
trunk/libclass-inspector-perl/MANIFEST
trunk/libclass-inspector-perl/META.yml
trunk/libclass-inspector-perl/debian/changelog
trunk/libclass-inspector-perl/debian/compat
trunk/libclass-inspector-perl/debian/control
trunk/libclass-inspector-perl/debian/watch
trunk/libclass-inspector-perl/lib/Class/Inspector.pm
trunk/libclass-inspector-perl/t/01_compile.t
trunk/libclass-inspector-perl/t/02_main.t
Modified: trunk/libclass-inspector-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/Changes?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/Changes (original)
+++ trunk/libclass-inspector-perl/Changes Thu Feb 14 12:04:22 2008
@@ -1,4 +1,11 @@
Revision history for Perl extension Class::Inspector.
+
+1.20 Tue 12 Feb 2008
+ - CPAN Testers results look good for 1.19_01,
+ converting to a production release.
+
+1.19_01 Mon 11 Feb 2008
+ - Bug fix to adapt to changes to File::Spec
1.18 Thu 8 Nov 2007
- Incremental release, no functional changes
Modified: trunk/libclass-inspector-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/MANIFEST?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/MANIFEST (original)
+++ trunk/libclass-inspector-perl/MANIFEST Thu Feb 14 12:04:22 2008
@@ -1,3 +1,6 @@
+97_meta.t
+98_pod.t
+99_pmv.t
Changes
inc/Module/Install.pm
inc/Module/Install/Base.pm
@@ -15,5 +18,4 @@
README
t/01_compile.t
t/02_main.t
-t/98_pod.t
-t/99_pmv.t
+t/03_inc_to_local.t
Modified: trunk/libclass-inspector-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/META.yml?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/META.yml (original)
+++ trunk/libclass-inspector-perl/META.yml Thu Feb 14 12:04:22 2008
@@ -5,7 +5,7 @@
build_requires:
Test::More: 0.47
distribution_type: module
-generated_by: Module::Install version 0.68
+generated_by: Module::Install version 0.680
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -18,4 +18,4 @@
requires:
File::Spec: 0.80
perl: 5.005
-version: 1.18
+version: 1.20
Modified: trunk/libclass-inspector-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/debian/changelog?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/debian/changelog (original)
+++ trunk/libclass-inspector-perl/debian/changelog Thu Feb 14 12:04:22 2008
@@ -1,12 +1,20 @@
-libclass-inspector-perl (1.18-2) UNRELEASED; urgency=low
+libclass-inspector-perl (1.20-1) UNRELEASED; urgency=low
+ [ Krzysztof Krzyzaniak (eloy) ]
+ * (NOT RELEASED YET) New upstream release
+ * debian/control:
+ + Standards-Version increased to 3.7.3 without changes
+ + debhelper changed version to (>= 6.0.0)
+ * debian/compat: increased to 6
+ * debian/watch: updated to new schema
+
[ gregor herrmann ]
* debian/rules: delete /usr/lib/perl5 only if it exists.
[ Joachim Breitner ]
* Removed myself from uploaders.
- -- Joachim Breitner <nomeata at debian.org> Mon, 11 Feb 2008 20:27:01 +0000
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Thu, 14 Feb 2008 12:57:18 +0100
libclass-inspector-perl (1.18-1) unstable; urgency=low
Modified: trunk/libclass-inspector-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/debian/compat?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/debian/compat (original)
+++ trunk/libclass-inspector-perl/debian/compat Thu Feb 14 12:04:22 2008
@@ -1,1 +1,1 @@
-5
+6
Modified: trunk/libclass-inspector-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/debian/control?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/debian/control (original)
+++ trunk/libclass-inspector-perl/debian/control Thu Feb 14 12:04:22 2008
@@ -7,9 +7,9 @@
gregor herrmann <gregor+debian at comodo.priv.at>,
Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, Joey Hess <joeyh at debian.org>,
Damyan Ivanov <dmn at debian.org>
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 6.0.0)
Build-Depends-Indep: perl (>= 5.6.0-16), libmodule-install-perl, libtest-pod-perl
-Standards-Version: 3.7.2
+Standards-Version: 3.7.3
Homepage: http://search.cpan.org/dist/Class-Inspector/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libclass-inspector-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-inspector-perl/
Modified: trunk/libclass-inspector-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/debian/watch?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/debian/watch (original)
+++ trunk/libclass-inspector-perl/debian/watch Thu Feb 14 12:04:22 2008
@@ -1,2 +1,2 @@
-version=2
-http://www.cpan.org/modules/by-module/Class/Class-Inspector-(\d.*)\.tar\.gz
+version=3
+http://search.cpan.org/dist/Class-Inspector/ .*/Class-Inspector-v?(\d[\d_.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)
Modified: trunk/libclass-inspector-perl/lib/Class/Inspector.pm
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/lib/Class/Inspector.pm?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/lib/Class/Inspector.pm (original)
+++ trunk/libclass-inspector-perl/lib/Class/Inspector.pm Thu Feb 14 12:04:22 2008
@@ -40,22 +40,22 @@
=cut
use 5.005;
-# We don't want to use strict refs, since we do a lot of things in here
-# that arn't strict refs friendly.
+# We don't want to use strict refs anywhere in this module, since we do a
+# lot of things in here that arn't strict refs friendly.
use strict qw{vars subs};
use File::Spec ();
# Globals
-use vars qw{$VERSION $RE_IDENT $RE_CLASS $UNIX};
+use vars qw{$VERSION $RE_IDENTIFIER $RE_CLASS $UNIX};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.20';
# Predefine some regexs
- $RE_IDENT = qr/\A[^\W\d]\w*\z/s;
- $RE_CLASS = qr/\A[^\W\d]\w*(?:(?:'|::)\w+)*\z/s;
+ $RE_IDENTIFIER = qr/\A[^\W\d]\w*\z/s;
+ $RE_CLASS = qr/\A[^\W\d]\w*(?:(?:\'|::)\w+)*\z/s;
# Are we on something Unix-like?
- $UNIX = !! ( $File::Spec::ISA[0] eq 'File::Spec::Unix' );
+ $UNIX = !! ( $File::Spec::ISA[0] eq 'File::Spec::Unix' );
}
@@ -151,7 +151,7 @@
sub filename {
my $class = shift;
my $name = $class->_class(shift) or return undef;
- File::Spec->catfile( split /(?:'|::)/, $name ) . '.pm';
+ File::Spec->catfile( split /(?:\'|::)/, $name ) . '.pm';
}
=pod
@@ -236,7 +236,7 @@
return undef unless $class->loaded( $name );
# Get all the CODE symbol table entries
- my @functions = sort grep { /$RE_IDENT/o }
+ my @functions = sort grep { /$RE_IDENTIFIER/o }
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
\@functions;
@@ -264,7 +264,7 @@
# Get all the CODE symbol table entries, but return
# the actual CODE refs this time.
my @functions = map { \&{"${name}::$_"} }
- sort grep { /$RE_IDENT/o }
+ sort grep { /$RE_IDENTIFIER/o }
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
\@functions;
@@ -419,7 +419,7 @@
my %methods = ();
foreach my $namespace ( @path ) {
my @functions = grep { ! $methods{$_} }
- grep { /$RE_IDENT/o }
+ grep { /$RE_IDENTIFIER/o }
grep { defined &{"${namespace}::$_"} }
keys %{"${namespace}::"};
foreach ( @functions ) {
@@ -504,7 +504,7 @@
grep {
substr($_, -2, 2, '') eq '::'
and
- /$RE_IDENT/o
+ /$RE_IDENTIFIER/o
}
keys %{"${name}::"};
}
@@ -575,20 +575,22 @@
sub _inc_filename {
my $class = shift;
my $name = $class->_class(shift) or return undef;
- join( '/', split /(?:'|::)/, $name ) . '.pm';
+ join( '/', split /(?:\'|::)/, $name ) . '.pm';
}
# Convert INC-specific file name to local file name
sub _inc_to_local {
- my $class = shift;
-
# Shortcut in the Unix case
- return $_[0] if $UNIX;
-
- # Get the INC filename and convert
- my $inc_name = shift or return undef;
- my ($vol, $dir, $file) = File::Spec::Unix->splitpath( $inc_name );
- $dir = File::Spec->catdir( File::Spec::Unix->splitdir( $dir || "" ) );
+ return $_[1] if $UNIX;
+
+ # On other places, we have to deal with an unusual path that might look
+ # like C:/foo/bar.pm which doesn't fit ANY normal pattern.
+ # Putting it through splitpath/dir and back again seems to normalise
+ # it to a reasonable amount.
+ my $class = shift;
+ my $inc_name = shift or return undef;
+ my ($vol, $dir, $file) = File::Spec->splitpath( $inc_name );
+ $dir = File::Spec->catdir( File::Spec->splitdir( $dir || "" ) );
File::Spec->catpath( $vol, $dir, $file || "" );
}
Modified: trunk/libclass-inspector-perl/t/01_compile.t
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/t/01_compile.t?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/t/01_compile.t (original)
+++ trunk/libclass-inspector-perl/t/01_compile.t Thu Feb 14 12:04:22 2008
@@ -1,8 +1,6 @@
#!/usr/bin/perl
-# Load testing for Class::Inspector
-
-# This test only tests that the module compiles.
+# Compile testing for Class::Inspector
use strict;
BEGIN {
@@ -12,12 +10,6 @@
use Test::More tests => 2;
-
-
-# Check their perl version
ok( $] >= 5.005, "Your perl is new enough" );
-# Does the module load
use_ok('Class::Inspector');
-
-exit();
Modified: trunk/libclass-inspector-perl/t/02_main.t
URL: http://svn.debian.org/wsvn/trunk/libclass-inspector-perl/t/02_main.t?rev=14916&op=diff
==============================================================================
--- trunk/libclass-inspector-perl/t/02_main.t (original)
+++ trunk/libclass-inspector-perl/t/02_main.t Thu Feb 14 12:04:22 2008
@@ -1,14 +1,14 @@
#!/usr/bin/perl
-# Formal testing for Class::Inspector
-
-# Do all the tests on ourself, since we know we will be loaded.
-
+# Unit testing for Class::Inspector
+
+# Do all the tests on ourself, where possible, as we know we will be loaded.
use strict;
BEGIN {
$| = 1;
- $^W = 1;
+ $^W = 1;
+ # $DB::single = 1;
}
use Test::More tests => 54;
@@ -118,16 +118,21 @@
# Check the methods method.
# First, defined a new subclass of Class::Inspector with some additional methods
-package Class::Inspector::Dummy;
-
-use strict;
-use base 'Class::Inspector';
-
-sub _a_first { 1; }
-sub adummy1 { 1; }
-sub _dummy2 { 1; }
-sub dummy3 { 1; }
-sub installed { 1; }
+CLASS: {
+ package Class::Inspector::Dummy;
+
+ use strict;
+ BEGIN {
+ require Class::Inspector;
+ @Class::Inspector::Dummy::ISA = 'Class::Inspector';
+ }
+
+ sub _a_first { 1; }
+ sub adummy1 { 1; }
+ sub _dummy2 { 1; }
+ sub dummy3 { 1; }
+ sub installed { 1; }
+}
package main;
@@ -267,7 +272,7 @@
}
# Check trivial ->find cases
-{
+SCOPE: {
is( CI->subclasses( '' ), undef, '->subclasses(bad) returns undef' );
is( CI->subclasses( BAD ), '', '->subclasses(none) returns false' );
my $rv = CI->subclasses( CI );
More information about the Pkg-perl-cvs-commits
mailing list