summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/parent.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/parent.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/parent.pm19
1 files changed, 1 insertions, 18 deletions
diff --git a/Master/tlpkg/tlperl/lib/parent.pm b/Master/tlpkg/tlperl/lib/parent.pm
index 445ed125e9a..f6e8cd497db 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.232';
+$VERSION = '0.234';
sub import {
my $class = shift;
@@ -12,10 +12,6 @@ sub import {
shift @_;
} else {
for ( my @filename = @_ ) {
- if ( $_ eq $inheritor ) {
- warn "Class '$inheritor' tried to inherit from itself\n";
- };
-
s{::|'}{/}g;
require "$_.pm"; # dies if the file is not found
}
@@ -94,19 +90,6 @@ either C<.pm> or C<.pmc>), use the following code:
require './plugins/custom.plugin'; # contains Plugin::Custom
use parent -norequire, 'Plugin::Custom';
-=head1 DIAGNOSTICS
-
-=over 4
-
-=item Class 'Foo' tried to inherit from itself
-
-Attempting to inherit from yourself generates a warning.
-
- package Foo;
- use parent 'Foo';
-
-=back
-
=head1 HISTORY
This module was forked from L<base> to remove the cruft