Upgrade to AutoLoader-5.64
Steve Peters [Mon, 31 Dec 2007 04:08:00 +0000 (04:08 +0000)]
p4raw-id: //depot/perl@32787

MANIFEST
lib/AutoLoader.pm
lib/AutoLoader/t/01AutoLoader.t [moved from lib/AutoLoader.t with 98% similarity]
lib/AutoLoader/t/02AutoSplit.t [moved from lib/AutoSplit.t with 99% similarity]
lib/AutoSplit.pm

index 7acd298..2fda8c1 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1458,10 +1458,10 @@ lib/Attribute/Handlers/t/data_convert.t Test attribute data conversion
 lib/Attribute/Handlers/t/linerep.t     See if Attribute::Handlers works
 lib/Attribute/Handlers/t/multi.t       See if Attribute::Handlers works
 lib/attributes.pm              For "sub foo : attrlist"
+lib/AutoLoader/t/01AutoLoader.t        See if AutoLoader works
+lib/AutoLoader/t/02AutoSplit.t See if AutoSplit works
 lib/AutoLoader.pm              Autoloader base class
-lib/AutoLoader.t               See if AutoLoader works
 lib/AutoSplit.pm               Split up autoload functions
-lib/AutoSplit.t                        See if AutoSplit works
 lib/autouse.pm                 Load and call a function only when it's used
 lib/autouse.t                  See if autouse works
 lib/base/Changes               base.pm changelog
index 28be69f..215a9ff 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
     $is_epoc = $^O eq 'epoc';
     $is_vms = $^O eq 'VMS';
     $is_macos = $^O eq 'MacOS';
-    $VERSION = '5.63';
+    $VERSION = '5.64';
 }
 
 AUTOLOAD {
@@ -369,4 +369,73 @@ does C<chdir>.
 
 L<SelfLoader> - an autoloader that doesn't use external files.
 
+=head1 AUTHOR
+
+C<AutoLoader> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since the first release
+of perl5. It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core:
+
+             Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+        2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+    
+                           All rights reserved.
+    
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of either:
+    
+       a) the GNU General Public License as published by the Free
+       Software Foundation; either version 1, or (at your option) any
+       later version, or
+    
+       b) the "Artistic License" which comes with this Kit.
+    
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+    the GNU General Public License or the Artistic License for more details.
+    
+    You should have received a copy of the Artistic License with this
+    Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
+    
+    You should also have received a copy of the GNU General Public License
+    along with this program in the file named "Copying". If not, write to the 
+    Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 
+    02111-1307, USA or visit their web page on the internet at
+    http://www.gnu.org/copyleft/gpl.html.
+    
+    For those of you that choose to use the GNU General Public License,
+    my interpretation of the GNU General Public License is that no Perl
+    script falls under the terms of the GPL unless you explicitly put
+    said script under the terms of the GPL yourself.  Furthermore, any
+    object code linked with perl does not automatically fall under the
+    terms of the GPL, provided such object code only adds definitions
+    of subroutines and variables, and does not otherwise impair the
+    resulting interpreter from executing any standard Perl script.  I
+    consider linking in C subroutines in this manner to be the moral
+    equivalent of defining subroutines in the Perl language itself.  You
+    may sell such an object file as proprietary provided that you provide
+    or offer to provide the Perl source, as specified by the GNU General
+    Public License.  (This is merely an alternate way of specifying input
+    to the program.)  You may also sell a binary produced by the dumping of
+    a running Perl script that belongs to you, provided that you provide or
+    offer to provide the Perl source as specified by the GPL.  (The
+    fact that a Perl interpreter and your code are in the same binary file
+    is, in this case, a form of mere aggregation.)  This is my interpretation
+    of the GPL.  If you still have concerns or difficulties understanding
+    my intent, feel free to contact me.  Of course, the Artistic License
+    spells all this out for your protection, so you may prefer to use that.
+
 =cut
similarity index 98%
rename from lib/AutoLoader.t
rename to lib/AutoLoader/t/01AutoLoader.t
index 92d66fa..2b6ef9a 100755 (executable)
@@ -1,8 +1,10 @@
 #!./perl -w
 
 BEGIN {
+  if ($ENV{PERL_CORE}) {
     chdir 't' if -d 't';
-       @INC = '../lib';
+    @INC = '../lib';
+  }
 }
 
 use strict;
@@ -13,7 +15,7 @@ my $dir;
 BEGIN
 {
        $dir = File::Spec->catdir( "auto-$$" );
-       unshift @INC, $dir;
+    unshift @INC, $dir;
 }
 
 use Test::More tests => 22;
similarity index 99%
rename from lib/AutoSplit.t
rename to lib/AutoLoader/t/02AutoSplit.t
index 36d3368..41ef6b8 100644 (file)
@@ -1,5 +1,3 @@
-#!./perl -w
-
 # AutoLoader.t runs before this test, so it seems safe to assume that it will
 # work.
 
@@ -17,8 +15,8 @@ BEGIN {
        $incdir = "auto-$$";
        $lib = '"-I../lib"'; # ok on unix, nt, The extra \" are for VMS
     }
-    @INC = $incdir;
-    push @INC, '../lib';
+    unshift @INC, $incdir;
+    unshift @INC, '../lib';
 }
 my $runperl = "$^X $lib";
 
index a6c0ee3..a7da1ac 100644 (file)
@@ -128,6 +128,75 @@ either the I<__END__> marker or a "package Name;"-style specification.
 C<AutoSplit> will also emit general diagnostics for inability to
 create directories or files.
 
+=head1 AUTHOR
+
+C<AutoSplit> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since the first release
+of perl5. It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core:
+
+             Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+        2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+    
+                           All rights reserved.
+    
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of either:
+    
+       a) the GNU General Public License as published by the Free
+       Software Foundation; either version 1, or (at your option) any
+       later version, or
+    
+       b) the "Artistic License" which comes with this Kit.
+    
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+    the GNU General Public License or the Artistic License for more details.
+    
+    You should have received a copy of the Artistic License with this
+    Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
+    
+    You should also have received a copy of the GNU General Public License
+    along with this program in the file named "Copying". If not, write to the 
+    Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 
+    02111-1307, USA or visit their web page on the internet at
+    http://www.gnu.org/copyleft/gpl.html.
+    
+    For those of you that choose to use the GNU General Public License,
+    my interpretation of the GNU General Public License is that no Perl
+    script falls under the terms of the GPL unless you explicitly put
+    said script under the terms of the GPL yourself.  Furthermore, any
+    object code linked with perl does not automatically fall under the
+    terms of the GPL, provided such object code only adds definitions
+    of subroutines and variables, and does not otherwise impair the
+    resulting interpreter from executing any standard Perl script.  I
+    consider linking in C subroutines in this manner to be the moral
+    equivalent of defining subroutines in the Perl language itself.  You
+    may sell such an object file as proprietary provided that you provide
+    or offer to provide the Perl source, as specified by the GNU General
+    Public License.  (This is merely an alternate way of specifying input
+    to the program.)  You may also sell a binary produced by the dumping of
+    a running Perl script that belongs to you, provided that you provide or
+    offer to provide the Perl source as specified by the GPL.  (The
+    fact that a Perl interpreter and your code are in the same binary file
+    is, in this case, a form of mere aggregation.)  This is my interpretation
+    of the GPL.  If you still have concerns or difficulties understanding
+    my intent, feel free to contact me.  Of course, the Artistic License
+    spells all this out for your protection, so you may prefer to use that.
+
 =cut
 
 # for portability warn about names longer than $maxlen