r4088 - in
/packages/libobject-signature-perl/branches/upstream/current: ./
inc/Module/ inc/Module/Install/ lib/Object/ t/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Oct 8 16:37:42 UTC 2006
Author: gregoa-guest
Date: Sun Oct 8 16:37:42 2006
New Revision: 4088
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4088
Log:
Load /tmp/tmp.GQtgY21266/libobject-signature-perl-1.05 into
packages/libobject-signature-perl/branches/upstream/current.
Added:
packages/libobject-signature-perl/branches/upstream/current/t/99_author.t
Removed:
packages/libobject-signature-perl/branches/upstream/current/t/99_pod.t
Modified:
packages/libobject-signature-perl/branches/upstream/current/Changes
packages/libobject-signature-perl/branches/upstream/current/MANIFEST
packages/libobject-signature-perl/branches/upstream/current/META.yml
packages/libobject-signature-perl/branches/upstream/current/Makefile.PL
packages/libobject-signature-perl/branches/upstream/current/README
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Base.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Can.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Win32.pm
packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
packages/libobject-signature-perl/branches/upstream/current/lib/Object/Signature.pm
packages/libobject-signature-perl/branches/upstream/current/t/01_compile.t
packages/libobject-signature-perl/branches/upstream/current/t/02_main.t
Modified: packages/libobject-signature-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/Changes?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/Changes (original)
+++ packages/libobject-signature-perl/branches/upstream/current/Changes Sun Oct 8 16:37:42 2006
@@ -1,4 +1,10 @@
Revision history for Perl extension Object::Signature
+
+1.05 Mon 2 Oct 2006
+ - No functional changes
+ - Upgrading to Module::Install 0.64
+ - Fixed a few minor kwalitee nigglies
+ - Upgraded tests to remove need for File::Spec dependency
1.04 Thu 18 May 2005
- No functional changes
Modified: packages/libobject-signature-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/MANIFEST?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libobject-signature-perl/branches/upstream/current/MANIFEST Sun Oct 8 16:37:42 2006
@@ -15,4 +15,4 @@
README
t/01_compile.t
t/02_main.t
-t/99_pod.t
+t/99_author.t
Modified: packages/libobject-signature-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/META.yml?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/META.yml (original)
+++ packages/libobject-signature-perl/branches/upstream/current/META.yml Sun Oct 8 16:37:42 2006
@@ -1,19 +1,17 @@
-
+abstract: ~
+author: Adam Kennedy <adamk at cpan.org>
+build_requires:
+ Test::More: 0.47
+distribution_type: module
+generated_by: Module::Install version 0.64
+license: perl
+name: Object-Signature
no_index:
directory:
- inc
- t
-generated_by: Module::Install version 0.62
-distribution_type: module
-version: 1.04
-name: Object-Signature
-author: Adam Kennedy <cpan at ali.as>
-license: perl
-build_requires:
- Test::More: 0.47
- File::Spec: 0.80
requires:
- perl: 5.005
Digest::MD5: 2.00
Storable: 2.11
-abstract:
+ perl: 5.005
+version: 1.05
Modified: packages/libobject-signature-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/Makefile.PL?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libobject-signature-perl/branches/upstream/current/Makefile.PL Sun Oct 8 16:37:42 2006
@@ -5,6 +5,5 @@
requires 'Storable' => '2.11';
requires 'Digest::MD5' => '2.00';
build_requires 'Test::More' => '0.47';
-build_requires 'File::Spec' => '0.80';
WriteAll;
Modified: packages/libobject-signature-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/README?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/README (original)
+++ packages/libobject-signature-perl/branches/upstream/current/README Sun Oct 8 16:37:42 2006
@@ -44,20 +44,21 @@
Once the current (as of 2005) hashing controversy settles down, consider
selecting a newer and more powerful hashing algorithm to replace MD5. Or
offer alternatives depending on how important the security situation is,
- as MD5 is very fast (90 meg a second) and many more secure ones are a
- lot slower (worse than 1/10th the speed in some cases).
+ as MD5 is very fast (90 meg a second) and many more-secure ones are a
+ lot slower (more than 10 times slower in some cases).
On our side is the fact we use Storable. It should be much harder to
create collisions when you don't control the string, only the structure
before it goes through Storable.
AUTHORS
- Adam Kennedy <cpan at ali.as>
+ Adam Kennedy <adamk at cpan.org>
COPYRIGHT
- Copyright (c) 2004 - 2006 Adam Kennedy. All rights reserved. This
- program is free software; you can redistribute it and/or modify it under
- the same terms as Perl itself.
+ Copyright 2004 - 2006 Adam Kennedy.
+
+ This program is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included
with this module.
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install.pm Sun Oct 8 16:37:42 2006
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.62';
+ $VERSION = '0.64';
}
# Whether or not inc::Module::Install is actually loaded, the
@@ -51,6 +51,22 @@
END_DIE
}
+# If the script that is loading Module::Install is from the future,
+# then make will detect this and cause it to re-run over and over
+# again. This is bad. Rather than taking action to touch it (which
+# is unreliable on some platforms and requires write permissions)
+# for now we should catch this and refuse to run.
+if ( -f $0 and (stat($0))[9] > time ) {
+ die << "END_DIE";
+Your installer $0 has a modification time in the future.
+
+This is known to create infinite loops in make.
+
+Please correct this, then run $0 again.
+
+END_DIE
+}
+
use Cwd ();
use File::Find ();
use File::Path ();
@@ -116,7 +132,7 @@
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
- next unless exists &{ref($obj).'::'.$method};
+ next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Base.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Base.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Base.pm Sun Oct 8 16:37:42 2006
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.62';
+$VERSION = '0.64';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Can.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Can.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Can.pm Sun Oct 8 16:37:42 2006
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Fetch.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Fetch.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Fetch.pm Sun Oct 8 16:37:42 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Makefile.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Makefile.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Makefile.pm Sun Oct 8 16:37:42 2006
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -175,6 +175,9 @@
$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
+ # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
+ $makefile =~ s/("?)-I\$\(PERL_LIB\)\1//g;
+
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
@@ -202,4 +205,4 @@
__END__
-#line 331
+#line 334
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Metadata.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Metadata.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Metadata.pm Sun Oct 8 16:37:42 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -123,9 +123,9 @@
require Module::Build;
my $build = Module::Build->new(
- dist_name => $self->{name},
- dist_version => $self->{version},
- license => $self->{license},
+ dist_name => $self->name,
+ dist_version => $self->version,
+ license => $self->license,
);
$self->provides(%{ $build->find_dist_packages || {} });
}
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Win32.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Win32.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/Win32.pm Sun Oct 8 16:37:42 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm Sun Oct 8 16:37:42 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.62';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libobject-signature-perl/branches/upstream/current/lib/Object/Signature.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/lib/Object/Signature.pm?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/lib/Object/Signature.pm (original)
+++ packages/libobject-signature-perl/branches/upstream/current/lib/Object/Signature.pm Sun Oct 8 16:37:42 2006
@@ -5,7 +5,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.05';
}
# If prefork is installed, use it
@@ -79,8 +79,8 @@
Once the current (as of 2005) hashing controversy settles down, consider
selecting a newer and more powerful hashing algorithm to replace MD5. Or
offer alternatives depending on how important the security situation is,
-as MD5 is B<very> fast (90 meg a second) and many more secure ones are a
-lot slower (worse than 1/10th the speed in some cases).
+as MD5 is B<very> fast (90 meg a second) and many more-secure ones are a
+lot slower (more than 10 times slower in some cases).
On our side is the fact we use Storable. It should be B<much> harder to create
collisions when you don't control the string, only the structure B<before>
@@ -88,11 +88,12 @@
=head1 AUTHORS
-Adam Kennedy E<lt>cpan at ali.asE<gt>
+Adam Kennedy E<lt>adamk at cpan.orgE<gt>
=head1 COPYRIGHT
-Copyright (c) 2004 - 2006 Adam Kennedy. All rights reserved.
+Copyright 2004 - 2006 Adam Kennedy.
+
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
Modified: packages/libobject-signature-perl/branches/upstream/current/t/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/t/01_compile.t?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/t/01_compile.t (original)
+++ packages/libobject-signature-perl/branches/upstream/current/t/01_compile.t Sun Oct 8 16:37:42 2006
@@ -3,23 +3,14 @@
# Load testing for Object::Signature
use strict;
-use lib ();
-use File::Spec::Functions ':ALL';
BEGIN {
- $| = 1;
- unless ( $ENV{HARNESS_ACTIVE} ) {
- require FindBin;
- chdir ($FindBin::Bin = $FindBin::Bin); # Avoid a warning
- lib->import( catdir(updir(), 'lib') );
- }
+ $| = 1;
+ $^W = 1;
}
use Test::More tests => 2;
-# Check their perl version
ok( $] >= 5.005, "Your perl is new enough" );
-
-# Does the module load
use_ok('Object::Signature');
exit(0);
Modified: packages/libobject-signature-perl/branches/upstream/current/t/02_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/t/02_main.t?rev=4088&op=diff
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/t/02_main.t (original)
+++ packages/libobject-signature-perl/branches/upstream/current/t/02_main.t Sun Oct 8 16:37:42 2006
@@ -3,15 +3,9 @@
# Load testing for Object::Signature
use strict;
-use lib ();
-use File::Spec::Functions ':ALL';
BEGIN {
- $| = 1;
- unless ( $ENV{HARNESS_ACTIVE} ) {
- require FindBin;
- chdir ($FindBin::Bin = $FindBin::Bin); # Avoid a warning
- lib->import( catdir(updir(), 'lib') );
- }
+ $| = 1;
+ $^W = 1;
}
use Test::More tests => 17;
Added: packages/libobject-signature-perl/branches/upstream/current/t/99_author.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libobject-signature-perl/branches/upstream/current/t/99_author.t?rev=4088&op=file
==============================================================================
--- packages/libobject-signature-perl/branches/upstream/current/t/99_author.t (added)
+++ packages/libobject-signature-perl/branches/upstream/current/t/99_author.t Sun Oct 8 16:37:42 2006
@@ -1,0 +1,61 @@
+#!/usr/bin/perl -w
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+use Test::More;
+
+# Skip if doing a regular install
+unless ( $ENV{AUTOMATED_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Can we run the POD tests?
+eval "use Test::Pod 1.00";
+if ( $@ ) {
+ plan( skip_all => "Test::Pod 1.00 required for testing POD" );
+}
+
+
+
+
+
+#####################################################################
+# WARNING: INSANE BLACK MAGIC
+#####################################################################
+
+# Hack Pod::Simple::BlackBox to ignore the Test::Inline
+# "Extended Begin" syntax.
+# For example, "=begin has more than one word errors"
+my $begin = \&Pod::Simple::BlackBox::_ponder_begin;
+sub mybegin {
+ my $para = $_[1];
+ my $content = join ' ', splice @$para, 2;
+ $content =~ s/^\s+//s;
+ $content =~ s/\s+$//s;
+ my @words = split /\s+/, $content;
+ if ( $words[0] =~ /^test(?:ing)?\z/s ) {
+ foreach ( 2 .. $#$para ) {
+ $para->[$_] = '';
+ }
+ $para->[2] = $words[0];
+ }
+
+ # Continue as normal
+ push @$para, @words;
+ return &$begin(@_);
+}
+
+SCOPE: {
+ local $^W = 0;
+ *Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
+}
+
+#####################################################################
+# END BLACK MAGIC
+#####################################################################
+
+# Test POD
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list