Hello community,

here is the log from the commit of package perl-Class-Autouse for 
openSUSE:Factory checked in at 2012-02-16 12:25:15
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Class-Autouse (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Class-Autouse.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Class-Autouse", Maintainer is "[email protected]"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Class-Autouse/perl-Class-Autouse.changes    
2011-11-21 12:37:14.000000000 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Class-Autouse.new/perl-Class-Autouse.changes   
    2012-02-16 12:25:27.000000000 +0100
@@ -1,0 +2,6 @@
+Mon Feb  6 10:07:21 UTC 2012 - [email protected]
+
+- update to 2.01
+       - Removing the use of "defined @array" deprecated in 5.16
+
+-------------------------------------------------------------------

Old:
----
  Class-Autouse-2.00.tar.gz

New:
----
  Class-Autouse-2.01.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Class-Autouse.spec ++++++
--- /var/tmp/diff_new_pack.jPrh3M/_old  2012-02-16 12:25:28.000000000 +0100
+++ /var/tmp/diff_new_pack.jPrh3M/_new  2012-02-16 12:25:28.000000000 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Class-Autouse
 #
-# 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,20 +15,18 @@
 # Please submit bugfixes or comments via http://bugs.opensuse.org/
 #
 
-# norootforbuild
 
 
 Name:           perl-Class-Autouse
-BuildRequires:  perl-Carp-Assert
-BuildRequires:  perl-macros
-Version:        2.00
+Version:        2.01
 Release:        1
-Summary:        Run-time class loading on first method call
-Group:          Development/Libraries/Perl
 License:        Artistic-1.0 ; GPL-2.0+
-AutoReqProv:    on
+Summary:        Run-time class loading on first method call
 Url:            http://cpan.org/modules/by-module/Class/
+Group:          Development/Libraries/Perl
 Source:         Class-Autouse-%{version}.tar.gz
+BuildRequires:  perl-Carp-Assert
+BuildRequires:  perl-macros
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}
 
@@ -38,12 +36,6 @@
 used during the running of a program, such as Date::Manip, this can
 save you large amounts of memory, and decrease the script load time.
 
-
-
-Authors:
---------
-    Adam Kennedy
-
 %prep
 %setup -q -n Class-Autouse-%{version}
 
@@ -55,11 +47,11 @@
 make test
 
 %install
-make DESTDIR=$RPM_BUILD_ROOT install_vendor
+make DESTDIR=%{buildroot} install_vendor
 %perl_process_packlist
 
 %clean
-rm -rf $RPM_BUILD_ROOT
+rm -rf %{buildroot}
 
 %files
 %defattr(-,root,root)

++++++ Class-Autouse-2.00.tar.gz -> Class-Autouse-2.01.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/Changes 
new/Class-Autouse-2.01/Changes
--- old/Class-Autouse-2.00/Changes      2011-01-18 01:02:20.000000000 +0100
+++ new/Class-Autouse-2.01/Changes      2012-02-03 08:55:57.000000000 +0100
@@ -1,5 +1,8 @@
 Revision history for Perl extension Class-Autouse
 
+2.01 Fri 3 Feb 2012
+       - Removing the use of "defined @array" deprecated in 5.16
+
 2.00 Tue 18 Jan 2011
        - Switching to a production release
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/MANIFEST 
new/Class-Autouse-2.01/MANIFEST
--- old/Class-Autouse-2.00/MANIFEST     2011-01-18 01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/MANIFEST     2012-02-03 08:56:56.000000000 +0100
@@ -14,6 +14,7 @@
 Makefile.PL
 MANIFEST                       This list of files
 META.yml
+MYMETA.json
 README
 t/01_compile.t
 t/02_main.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/META.yml 
new/Class-Autouse-2.01/META.yml
--- old/Class-Autouse-2.00/META.yml     2011-01-18 01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/META.yml     2012-02-03 08:56:56.000000000 +0100
@@ -3,13 +3,14 @@
 author:
   - 'Adam Kennedy <[email protected]>'
 build_requires:
-  ExtUtils::MakeMaker: 6.42
+  ExtUtils::MakeMaker: 6.62
   File::Temp: 0.17
   Test::More: 0.47
 configure_requires:
-  ExtUtils::MakeMaker: 6.42
+  ExtUtils::MakeMaker: 6.62
 distribution_type: module
-generated_by: 'Module::Install version 1.00'
+dynamic_config: 0
+generated_by: 'Module::Install version 1.04'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -23,10 +24,10 @@
     - xt
 requires:
   File::Spec: 0.80
-  List::Util: 1.19
+  List::Util: 1.18
   perl: 5.6.0
 resources:
   ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Class-Autouse
   license: http://dev.perl.org/licenses/
   repository: http://svn.ali.as/cpan/trunk/Class-Autouse
-version: 2.00
+version: 2.01
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/MYMETA.json 
new/Class-Autouse-2.01/MYMETA.json
--- old/Class-Autouse-2.00/MYMETA.json  1970-01-01 01:00:00.000000000 +0100
+++ new/Class-Autouse-2.01/MYMETA.json  2012-02-03 08:56:56.000000000 +0100
@@ -0,0 +1,56 @@
+{
+   "abstract" : "Run-time load a class the first time you call a method in 
it.",
+   "author" : [
+      "Adam Kennedy <[email protected]>"
+   ],
+   "dynamic_config" : 0,
+   "generated_by" : "Module::Install version 1.04, CPAN::Meta::Converter 
version 2.112621",
+   "license" : [
+      "perl_5"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+      "version" : "2"
+   },
+   "name" : "Class-Autouse",
+   "no_index" : {
+      "directory" : [
+         "inc",
+         "t",
+         "xt"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "6.62",
+            "File::Temp" : "0.17",
+            "Test::More" : "0.47"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "6.62"
+         }
+      },
+      "runtime" : {
+         "requires" : {
+            "File::Spec" : "0.80",
+            "List::Util" : "1.18",
+            "perl" : "5.006"
+         }
+      }
+   },
+   "release_status" : "stable",
+   "resources" : {
+      "license" : [
+         "http://dev.perl.org/licenses/";
+      ],
+      "repository" : {
+         "url" : "http://svn.ali.as/cpan/trunk/Class-Autouse";
+      },
+      "x_ChangeLog" : 
"http://fisheye2.atlassian.com/changelog/cpan/trunk/Class-Autouse";
+   },
+   "version" : "2.01",
+   "x_module_name" : "Class::Autouse"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/Makefile.PL 
new/Class-Autouse-2.01/Makefile.PL
--- old/Class-Autouse-2.00/Makefile.PL  2011-01-18 01:02:20.000000000 +0100
+++ new/Class-Autouse-2.01/Makefile.PL  2012-02-03 08:55:57.000000000 +0100
@@ -1,8 +1,6 @@
-use inc::Module::Install::DSL 1.00;
+use inc::Module::Install::DSL 1.04;
 
 all_from      lib/Class/Autouse.pm
 requires_from lib/Class/Autouse.pm
-requires      File::Spec 0.80
-requires      List::Util 1.19
 test_requires Test::More 0.47
 test_requires File::Temp 0.17
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/README 
new/Class-Autouse-2.01/README
--- old/Class-Autouse-2.00/README       2011-01-18 01:02:20.000000000 +0100
+++ new/Class-Autouse-2.01/README       2012-02-03 08:55:57.000000000 +0100
@@ -411,7 +411,7 @@
     autoload, autoclass
 
 COPYRIGHT
-    Copyright 2002 - 2011 Adam Kennedy.
+    Copyright 2002 - 2012 Adam Kennedy.
 
     This program is free software; you can redistribute it and/or modify it
     under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/Base.pm 
new/Class-Autouse-2.01/inc/Module/Install/Base.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Base.pm   2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Base.pm   2012-02-03 
08:56:55.000000000 +0100
@@ -4,7 +4,7 @@
 use strict 'vars';
 use vars qw{$VERSION};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
 }
 
 # Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/Can.pm 
new/Class-Autouse-2.01/inc/Module/Install/Can.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Can.pm    2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Can.pm    2012-02-03 
08:56:55.000000000 +0100
@@ -9,7 +9,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/DSL.pm 
new/Class-Autouse-2.01/inc/Module/Install/DSL.pm
--- old/Class-Autouse-2.00/inc/Module/Install/DSL.pm    2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/DSL.pm    2012-02-03 
08:56:55.000000000 +0100
@@ -4,7 +4,7 @@
 use strict;
 use vars qw{$VERSION $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
        $ISCORE  = 1;
        *inc::Module::Install::DSL::VERSION = *VERSION;
        @inc::Module::Install::DSL::ISA     = __PACKAGE__;
@@ -59,7 +59,8 @@
        my @lines = grep { /\S/ } split /[\012\015]+/, $dsl;
 
        # Each line represents one command
-       my @code = ();
+       my @code   = ();
+       my $static = 1;
        foreach my $line ( @lines ) {
                # Split the lines into tokens
                my @tokens = split /\s+/, $line;
@@ -74,6 +75,10 @@
                                # This is the beginning of a suffix
                                push @suffix, $token;
                                push @suffix, @tokens;
+
+                               # The conditional means this distribution
+                               # can no longer be considered fully static.
+                               $static = 0;
                                last;
                        } else {
                                # Convert to a string
@@ -87,6 +92,9 @@
                push @code, join( ' ', @tokens ) . ";\n";
        }
 
+       # Is our configuration static?
+       push @code, "static_config;\n" if $static;
+
        # Join into the complete code block
        return join( '', @code );
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/Fetch.pm 
new/Class-Autouse-2.01/inc/Module/Install/Fetch.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Fetch.pm  2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Fetch.pm  2012-02-03 
08:56:55.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/Makefile.pm 
new/Class-Autouse-2.01/inc/Module/Install/Makefile.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Makefile.pm       2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Makefile.pm       2012-02-03 
08:56:55.000000000 +0100
@@ -8,7 +8,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $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/Class-Autouse-2.00/inc/Module/Install/Metadata.pm 
new/Class-Autouse-2.01/inc/Module/Install/Metadata.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Metadata.pm       2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Metadata.pm       2012-02-03 
08:56:55.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $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";
        }
@@ -515,6 +521,7 @@
                'GNU Free Documentation license'     => 'unrestricted', 1,
                'GNU Affero General Public License'  => 'open_source',  1,
                '(?:Free)?BSD license'               => 'bsd',          1,
+               'Artistic license 2\.0'              => 'artistic_2',   1,
                'Artistic license'                   => 'artistic',     1,
                'Apache (?:Software )?license'       => 'apache',       1,
                'GPL'                                => 'gpl',          1,
@@ -550,9 +557,9 @@
 
 sub _extract_bugtracker {
        my @links   = $_[0] =~ m#L<(
-        \Qhttp://rt.cpan.org/\E[^>]+|
-        \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
-        \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+        https?\Q://rt.cpan.org/\E[^>]+|
+        https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+        https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
         )>#gx;
        my %links;
        @links{@links}=();
@@ -581,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/Class-Autouse-2.00/inc/Module/Install/Win32.pm 
new/Class-Autouse-2.01/inc/Module/Install/Win32.pm
--- old/Class-Autouse-2.00/inc/Module/Install/Win32.pm  2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/Win32.pm  2012-02-03 
08:56:55.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
        @ISA     = 'Module::Install::Base';
        $ISCORE  = 1;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install/WriteAll.pm 
new/Class-Autouse-2.01/inc/Module/Install/WriteAll.pm
--- old/Class-Autouse-2.00/inc/Module/Install/WriteAll.pm       2011-01-18 
01:03:20.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install/WriteAll.pm       2012-02-03 
08:56:55.000000000 +0100
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '1.00';
+       $VERSION = '1.04';
        @ISA     = qw{Module::Install::Base};
        $ISCORE  = 1;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/inc/Module/Install.pm 
new/Class-Autouse-2.01/inc/Module/Install.pm
--- old/Class-Autouse-2.00/inc/Module/Install.pm        2011-01-18 
01:03:19.000000000 +0100
+++ new/Class-Autouse-2.01/inc/Module/Install.pm        2012-02-03 
08:56:55.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.00';
+       $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
@@ -467,4 +467,4 @@
 
 1;
 
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/lib/Class/Autouse/Parent.pm 
new/Class-Autouse-2.01/lib/Class/Autouse/Parent.pm
--- old/Class-Autouse-2.00/lib/Class/Autouse/Parent.pm  2011-01-18 
01:02:20.000000000 +0100
+++ new/Class-Autouse-2.01/lib/Class/Autouse/Parent.pm  2012-02-03 
08:55:57.000000000 +0100
@@ -10,7 +10,7 @@
 
 our $VERSION;
 BEGIN {
-       $VERSION = '2.00';
+       $VERSION = '2.01';
 }
 
 # Anti-loop protection.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/lib/Class/Autouse.pm 
new/Class-Autouse-2.01/lib/Class/Autouse.pm
--- old/Class-Autouse-2.00/lib/Class/Autouse.pm 2011-01-18 01:02:20.000000000 
+0100
+++ new/Class-Autouse-2.01/lib/Class/Autouse.pm 2012-02-03 08:55:57.000000000 
+0100
@@ -15,9 +15,14 @@
 use List::Util 1.18 ();
 use Scalar::Util    ();
 
+# Globals
+use vars qw{ $VERSION @ISA $DB $DEBUG };
+use vars qw{ $DEVEL $SUPERLOAD $NOSTAT $NOPREBLESS $STATICISA   }; # Load 
environment
+use vars qw{ %SPECIAL %LOADED %BAD %TRIED_CLASS %TRIED_METHOD   }; # Special 
cases
+use vars qw{ @LOADERS @SUGAR $HOOKS $ORIGINAL_CAN $ORIGINAL_ISA }; # Working 
information
+
 # Handle optimisation switches via constants to allow debugging and
 # similar functions to be optimised out at compile time if not in use.
-our ($DB, $DEBUG);
 BEGIN {
        $DB    = 0 unless defined &DB::DB;
        $DEBUG = 0 unless defined $DEBUG;
@@ -26,15 +31,9 @@
 use constant DEBUG => !! $DEBUG;
 print "Class::Autouse -> Debugging Activated.\n" if DEBUG;
 
-# Globals
-use vars qw{ $VERSION @ISA };
-use vars qw{ $DEVEL $SUPERLOAD $NOSTAT $NOPREBLESS $STATICISA   }; # Load 
environment
-use vars qw{ %SPECIAL %LOADED %BAD %TRIED_CLASS %TRIED_METHOD   }; # Special 
cases
-use vars qw{ @LOADERS @SUGAR $HOOKS $ORIGINAL_CAN $ORIGINAL_ISA }; # Working 
information
-
 # Compile-time Initialisation and Optimisation
 BEGIN {
-       $VERSION = '2.00';
+       $VERSION = '2.01';
 
        # Become an exporter so we don't get complaints when we act as a pragma.
        # I don't fully understand the reason for this, but it works and I can't
@@ -752,7 +751,7 @@
 
        # Handle the most likely case
        my $class = shift or return undef;
-       return 1 if defined @{"${class}::ISA"};
+       return 1 if @{"${class}::ISA"};
 
        # Get the list of glob names, ignoring namespaces
        foreach ( keys %{"${class}::"} ) {
@@ -764,9 +763,7 @@
                                # This is a Class::Autouse hook.  Ignore.
                                next;
                        }
-                       else {
-                               return 1;
-                       }
+                       return 1;
                }
        }
 
@@ -1325,7 +1322,7 @@
 
 =head1 COPYRIGHT
 
-Copyright 2002 - 2011 Adam Kennedy.
+Copyright 2002 - 2012 Adam Kennedy.
 
 This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Class-Autouse-2.00/xt/pmv.t 
new/Class-Autouse-2.01/xt/pmv.t
--- old/Class-Autouse-2.00/xt/pmv.t     2011-01-18 01:02:20.000000000 +0100
+++ new/Class-Autouse-2.01/xt/pmv.t     2012-02-03 08:55:57.000000000 +0100
@@ -9,7 +9,7 @@
 }
 
 my @MODULES = (
-       'Perl::MinimumVersion 1.25',
+       'Perl::MinimumVersion 1.27',
        'Test::MinimumVersion 0.101080',
 );
 

-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to