Hello community,
here is the log from the commit of package perl-MooseX-Types-LoadableClass for
openSUSE:Factory checked in at 2012-02-17 15:00:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MooseX-Types-LoadableClass (Old)
and /work/SRC/openSUSE:Factory/.perl-MooseX-Types-LoadableClass.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MooseX-Types-LoadableClass", Maintainer is ""
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-MooseX-Types-LoadableClass/perl-MooseX-Types-LoadableClass.changes
2011-12-22 10:54:25.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-MooseX-Types-LoadableClass.new/perl-MooseX-Types-LoadableClass.changes
2012-02-17 15:01:02.000000000 +0100
@@ -1,0 +2,6 @@
+Fri Feb 17 11:23:28 UTC 2012 - [email protected]
+
+- updated to 0.007
+ - Be more paranoid about the potential for $_ being clobbered.
+
+-------------------------------------------------------------------
Old:
----
MooseX-Types-LoadableClass-0.006.tar.gz
New:
----
MooseX-Types-LoadableClass-0.007.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MooseX-Types-LoadableClass.spec ++++++
--- /var/tmp/diff_new_pack.qrhbIp/_old 2012-02-17 15:01:03.000000000 +0100
+++ /var/tmp/diff_new_pack.qrhbIp/_new 2012-02-17 15:01:03.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-MooseX-Types-LoadableClass
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -15,12 +15,13 @@
# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
+
Name: perl-MooseX-Types-LoadableClass
-Version: 0.006
+Version: 0.007
Release: 0
%define cpan_name MooseX-Types-LoadableClass
-Summary: ClassName type constraint with coercion to load the class
-License: GPL-1.0+ or Artistic-1.0
+Summary: ClassName type constraint with coercion to load the class.
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/MooseX-Types-LoadableClass/
Source:
http://www.cpan.org/authors/id/B/BO/BOBTFISH/%{cpan_name}-%{version}.tar.gz
++++++ MooseX-Types-LoadableClass-0.006.tar.gz ->
MooseX-Types-LoadableClass-0.007.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-LoadableClass-0.006/Changes
new/MooseX-Types-LoadableClass-0.007/Changes
--- old/MooseX-Types-LoadableClass-0.006/Changes 2011-08-05
13:41:29.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/Changes 2012-02-15
23:14:06.000000000 +0100
@@ -1,3 +1,6 @@
+0.007 15-02-2012
+ - Be more paranoid about the potential for $_ being clobbered.
+
0.006 05-07-2011
- Change to use Class::Load, rather than Class::MOP::load_class
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-LoadableClass-0.006/MANIFEST
new/MooseX-Types-LoadableClass-0.007/MANIFEST
--- old/MooseX-Types-LoadableClass-0.006/MANIFEST 2011-08-05
13:42:35.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/MANIFEST 2012-02-15
23:20:19.000000000 +0100
@@ -21,6 +21,8 @@
t/author/pod-coverage.t
t/author/pod.t
t/basic.t
+t/clobber_dollerunderscore.t
+t/lib/ClobberDollarUnderscore.pm
t/lib/FooBarTestClass.pm
t/lib/FooBarTestRole.pm
t/typemap.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-LoadableClass-0.006/META.yml
new/MooseX-Types-LoadableClass-0.007/META.yml
--- old/MooseX-Types-LoadableClass-0.006/META.yml 2011-08-05
13:42:28.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/META.yml 2012-02-15
23:20:10.000000000 +0100
@@ -3,13 +3,14 @@
author:
- 'Tomas Doran (t0m) C<< <[email protected]> >>'
build_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.36
Moose: 0
Test::More: 0.88
configure_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.36
distribution_type: module
-generated_by: 'Module::Install version 1.01'
+dynamic_config: 1
+generated_by: 'Module::Install version 1.04'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/bobtfish/MooseX-Types-LoadableClass.git
-version: 0.006
+version: 0.007
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Base.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Base.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Base.pm
2011-08-05 13:42:27.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Base.pm
2012-02-15 23:20:10.000000000 +0100
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Can.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Can.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Can.pm
2011-08-05 13:42:27.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Can.pm
2012-02-15 23:20:10.000000000 +0100
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Fetch.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Fetch.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Fetch.pm
2011-08-05 13:42:28.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Fetch.pm
2012-02-15 23:20:10.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Makefile.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Makefile.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Makefile.pm
2011-08-05 13:42:27.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Makefile.pm
2012-02-15 23:20:10.000000000 +0100
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -219,14 +219,14 @@
# an underscore, even though its own version may contain one!
# Hence the funny regexp to get rid of it. See RT #35800
# for details.
- my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
+ my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
$self->build_requires( 'ExtUtils::MakeMaker' => $v );
$self->configure_requires( 'ExtUtils::MakeMaker' => $v );
} else {
# Allow legacy-compatibility with 5.005 by depending on the
# most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 );
}
# Generate the MakeMaker params
@@ -241,7 +241,6 @@
'all_from' if you prefer) in Makefile.PL.
EOT
- $DB::single = 1;
if ( $self->tests ) {
my @tests = split ' ', $self->tests;
my %seen;
@@ -412,4 +411,4 @@
__END__
-#line 541
+#line 540
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Metadata.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Metadata.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Metadata.pm
2011-08-05 13:42:27.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Metadata.pm
2012-02-15 23:20:10.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -151,15 +151,21 @@
sub install_as_vendor { $_[0]->installdirs('vendor') }
sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to
dynamic_config\n";
- return $self;
+ my $self = shift;
+ my $value = @_ ? shift : 1;
+ if ( $self->{values}->{dynamic_config} ) {
+ # Once dynamic we never change to static, for safety
+ return 0;
}
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
+ $self->{values}->{dynamic_config} = $value ? 1 : 0;
return 1;
}
+# Convenience command
+sub static_config {
+ shift->dynamic_config(0);
+}
+
sub perl_version {
my $self = shift;
return $self->{values}->{perl_version} unless @_;
@@ -170,7 +176,7 @@
# Normalize the version
$version = $self->_perl_version($version);
- # We don't support the reall old versions
+ # We don't support the really old versions
unless ( $version >= 5.005 ) {
die "Module::Install only supports 5.005 or newer (use
ExtUtils::MakeMaker)\n";
}
@@ -582,7 +588,7 @@
sub requires_from {
my $self = shift;
my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~
m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
+ my @requires = $content =~
m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg;
while ( @requires ) {
my $module = shift @requires;
my $version = shift @requires;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Win32.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Win32.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/Win32.pm
2011-08-05 13:42:28.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/Win32.pm
2012-02-15 23:20:10.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/WriteAll.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/WriteAll.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install/WriteAll.pm
2011-08-05 13:42:28.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install/WriteAll.pm
2012-02-15 23:20:10.000000000 +0100
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.04';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/inc/Module/Install.pm
new/MooseX-Types-LoadableClass-0.007/inc/Module/Install.pm
--- old/MooseX-Types-LoadableClass-0.006/inc/Module/Install.pm 2011-08-05
13:42:27.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/inc/Module/Install.pm 2012-02-15
23:20:09.000000000 +0100
@@ -31,7 +31,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 = '1.01';
+ $VERSION = '1.04';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -451,7 +451,7 @@
}
sub _cmp ($$) {
- _version($_[0]) <=> _version($_[1]);
+ _version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/lib/MooseX/Types/LoadableClass.pm
new/MooseX-Types-LoadableClass-0.007/lib/MooseX/Types/LoadableClass.pm
--- old/MooseX-Types-LoadableClass-0.006/lib/MooseX/Types/LoadableClass.pm
2011-08-05 13:42:12.000000000 +0200
+++ new/MooseX-Types-LoadableClass-0.007/lib/MooseX/Types/LoadableClass.pm
2012-02-15 23:14:10.000000000 +0100
@@ -7,11 +7,12 @@
use Class::Load qw/ load_optional_class /;
use namespace::clean -except => [qw/ import /];
-our $VERSION = '0.006';
+our $VERSION = '0.007';
$VERSION = eval $VERSION;
subtype LoadableClass, as MooseClassName;
-coerce LoadableClass, from Str, via { load_optional_class($_) ? $_ : undef };
+coerce LoadableClass, from Str,
+ via { my $name = $_; load_optional_class($name) ? $name : undef };
subtype LoadableRole, as RoleName;
# this is alright because ClassName is just is_class_loaded, with no
@@ -19,7 +20,8 @@
coerce LoadableRole, from Str, via { to_LoadableClass($_) };
# back compat
-__PACKAGE__->type_storage->{ClassName} =
__PACKAGE__->type_storage->{LoadableClass};
+__PACKAGE__->type_storage->{ClassName}
+ = __PACKAGE__->type_storage->{LoadableClass};
__PACKAGE__->meta->make_immutable;
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/t/clobber_dollerunderscore.t
new/MooseX-Types-LoadableClass-0.007/t/clobber_dollerunderscore.t
--- old/MooseX-Types-LoadableClass-0.006/t/clobber_dollerunderscore.t
1970-01-01 01:00:00.000000000 +0100
+++ new/MooseX-Types-LoadableClass-0.007/t/clobber_dollerunderscore.t
2012-02-15 23:12:49.000000000 +0100
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+use Test::More;
+use FindBin qw/ $Bin /;
+use lib "$Bin/lib";
+
+use MooseX::Types::LoadableClass qw/ LoadableClass /;
+
+my $c = to_LoadableClass("ClobberDollarUnderscore");
+ok $c;
+
+done_testing;
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-LoadableClass-0.006/t/lib/ClobberDollarUnderscore.pm
new/MooseX-Types-LoadableClass-0.007/t/lib/ClobberDollarUnderscore.pm
--- old/MooseX-Types-LoadableClass-0.006/t/lib/ClobberDollarUnderscore.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/MooseX-Types-LoadableClass-0.007/t/lib/ClobberDollarUnderscore.pm
2012-02-15 23:11:39.000000000 +0100
@@ -0,0 +1,6 @@
+package ClobberDollarUnderscore;
+use Moose;
+
+$_ = undef;
+1;
+
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
