diff options
| author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
| commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
| tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/parent.pm | |
| parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) | |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/parent.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/parent.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/parent.pm b/Master/tlpkg/tlperl/lib/parent.pm index a18526bb519..8f72db86dc8 100644 --- a/Master/tlpkg/tlperl/lib/parent.pm +++ b/Master/tlpkg/tlperl/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; use vars qw($VERSION); -$VERSION = '0.223'; +$VERSION = '0.225'; sub import { my $class = shift; @@ -23,9 +23,7 @@ sub import { { no strict 'refs'; - # This is more efficient than push for the new MRO - # at least until the new MRO is fixed - @{"$inheritor\::ISA"} = (@{"$inheritor\::ISA"} , @_); + push @{"$inheritor\::ISA"}, @_; }; }; @@ -33,6 +31,8 @@ sub import { __END__ +=encoding utf8 + =head1 NAME parent - Establish an ISA relationship with base classes at compile time @@ -102,7 +102,7 @@ either C<.pm> or C<.pmc>), use the following code: Attempting to inherit from yourself generates a warning. - use Foo; + package Foo; use parent 'Foo'; =back @@ -120,13 +120,13 @@ L<base> =head1 AUTHORS AND CONTRIBUTORS -Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern +Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern =head1 MAINTAINER Max Maischein C< corion@cpan.org > -Copyright (c) 2007 Max Maischein C<< <corion@cpan.org> >> +Copyright (c) 2007-10 Max Maischein C<< <corion@cpan.org> >> Based on the idea of C<base.pm>, which was introduced with Perl 5.004_04. =head1 LICENSE |