diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-10-11 10:47:04 -0600 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 14:06:38 -0700 |
commit | 1de764bcebedbbdca109d0dad476505038e0e18d (patch) | |
tree | 3167318d276eb8002c06a80bba8fbf053dd6425a /lib | |
parent | 6505c6e25e2b76dbae3529d0093673a0df6e86af (diff) | |
download | perl-1de764bcebedbbdca109d0dad476505038e0e18d.tar.gz |
mktables: Remove extraneous error message
When I created matches_identically_to() originally, I just copied from
another subroutine, changing a few things. I shouldn't have copied this
message, as it was only applicable to the original routine.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index d82bfe1f86..40ea0572e6 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -6161,13 +6161,6 @@ sub trace { return main::trace(@_); } my $other = shift; Carp::carp_extra_args(\@_) if main::DEBUG && @_; - unless ($other->isa(__PACKAGE__)) { - my $ref_other = ref $other; - my $ref_self = ref $self; - Carp::my_carp_bug("Argument to 'matches_identically_to' must be another $ref_self, not a '$ref_other'. $other not set equivalent to $self."); - return 0; - } - # These are ordered in increasing real time to figure out (at least # until a patch changes that and doesn't change this) return 0 if $self->max != $other->max; |