From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 11 Oct 2010 16:47:04 +0000 (-0600)
Subject: mktables: Remove extraneous error message
X-Git-Tag: v5.13.6~144
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1de764bcebedbbdca109d0dad476505038e0e18d

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.
---

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index d82bfe1..40ea057 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;