From: Steve Peters Date: Mon, 31 Dec 2007 04:08:00 +0000 (+0000) Subject: Upgrade to AutoLoader-5.64 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a7524138a5c397ce82248e4a513d11be63af864;p=p5sagit%2Fp5-mst-13.2.git Upgrade to AutoLoader-5.64 p4raw-id: //depot/perl@32787 --- diff --git a/MANIFEST b/MANIFEST index 7acd298..2fda8c1 100644 --- 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 diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 28be69f..215a9ff 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -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. L - an autoloader that doesn't use external files. +=head1 AUTHOR + +C 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 + +Maintainer of the CPAN release: Steffen Mueller + +=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 diff --git a/lib/AutoLoader.t b/lib/AutoLoader/t/01AutoLoader.t similarity index 98% rename from lib/AutoLoader.t rename to lib/AutoLoader/t/01AutoLoader.t index 92d66fa..2b6ef9a 100755 --- a/lib/AutoLoader.t +++ b/lib/AutoLoader/t/01AutoLoader.t @@ -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; diff --git a/lib/AutoSplit.t b/lib/AutoLoader/t/02AutoSplit.t similarity index 99% rename from lib/AutoSplit.t rename to lib/AutoLoader/t/02AutoSplit.t index 36d3368..41ef6b8 100644 --- a/lib/AutoSplit.t +++ b/lib/AutoLoader/t/02AutoSplit.t @@ -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"; diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index a6c0ee3..a7da1ac 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -128,6 +128,75 @@ either the I<__END__> marker or a "package Name;"-style specification. C will also emit general diagnostics for inability to create directories or files. +=head1 AUTHOR + +C 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 + +Maintainer of the CPAN release: Steffen Mueller + +=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