diff options
author | Steve Peters <steve@fisharerojo.org> | 2007-12-31 04:08:00 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2007-12-31 04:08:00 +0000 |
commit | 7a7524138a5c397ce82248e4a513d11be63af864 (patch) | |
tree | 67b5fab3e57662457e53c40e9c1e7bd19c55caea /lib | |
parent | d020892c81d763c02d5422e917a01acc3c62a675 (diff) | |
download | perl-7a7524138a5c397ce82248e4a513d11be63af864.tar.gz |
Upgrade to AutoLoader-5.64
p4raw-id: //depot/perl@32787
Diffstat (limited to 'lib')
-rw-r--r-- | lib/AutoLoader.pm | 71 | ||||
-rwxr-xr-x | lib/AutoLoader/t/01AutoLoader.t (renamed from lib/AutoLoader.t) | 6 | ||||
-rw-r--r-- | lib/AutoLoader/t/02AutoSplit.t (renamed from lib/AutoSplit.t) | 6 | ||||
-rw-r--r-- | lib/AutoSplit.pm | 69 |
4 files changed, 145 insertions, 7 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 28be69f878..215a9ff250 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<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 diff --git a/lib/AutoLoader.t b/lib/AutoLoader/t/01AutoLoader.t index 92d66fa731..2b6ef9ae21 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 index 36d33681d5..41ef6b85e1 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 a6c0ee32b2..a7da1acae3 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<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 |