diff options
author | Karl Williamson <khw@cpan.org> | 2021-08-11 07:46:14 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-08-11 07:57:22 -0600 |
commit | 57a643a6b02820e528cc89d03660b9beb7f3784c (patch) | |
tree | c0013f799716ee624ed0b67efa7c202edc5ad844 /lib | |
parent | f1258252af9029c93a503f5e45bf6ae88977c4dd (diff) | |
download | perl-57a643a6b02820e528cc89d03660b9beb7f3784c.tar.gz |
mktables: Fix debugging issues
Commit 4fe9356b250 changed the signatures on subroutines, and didn't do
these correctly. The result was that perl would croak when using the
mktables debugging facility.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 12 | ||||
-rw-r--r-- | lib/unicore/uni_keywords.pl | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index dbc924c449..c0c66aad6b 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -2644,7 +2644,7 @@ END ".=" => \&main::_operator_dot_equal, ; - sub _operator_stringify($self) { + sub _operator_stringify($self, $other="", $reversed=0) { return __PACKAGE__ . " object for " . $self->file; } @@ -3566,7 +3566,7 @@ sub trace { return main::trace(@_); } ".=" => \&main::_operator_dot_equal, ; - sub _operator_stringify($self) { + sub _operator_stringify($self, $other="", $reversed=0) { my $addr = do { no overloading; pack 'J', $self; }; # Output it like '0041..0065 (value)' @@ -3723,7 +3723,7 @@ sub trace { return main::trace(@_); } ".=" => \&main::_operator_dot_equal, ; - sub _operator_stringify($self) { + sub _operator_stringify($self, $other="", $reversed=0) { my $addr = do { no overloading; pack 'J', $self; }; return "Range_List attached to '$owner_name_of{$addr}'" @@ -6800,7 +6800,7 @@ sub trace { return main::trace(@_); } qw("") => "_operator_stringify", ; - sub _operator_stringify { + sub _operator_stringify($self, $other="", $reversed=0) { my $self = shift; my $name = $self->property->full_name; @@ -7821,7 +7821,7 @@ sub trace { return main::trace(@_); } }, ; - sub _operator_stringify { + sub _operator_stringify($self, $other="", $reversed=0) { my $self = shift; my $name = $self->complete_name; @@ -8938,7 +8938,7 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace } '-=' => "_minus_and_equal", ; - sub _operator_stringify { + sub _operator_stringify($self, $other="", $reversed=0) { return "Property '" . shift->full_name . "'"; } diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index 44c371bde4..1e9bc09238 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1295,7 +1295,7 @@ # baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt # 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt # 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt -# 3f9b68df38ab90c512f7159658ea01cc6fee76420c5953300a31fb06ac632e62 lib/unicore/mktables +# 7b73d5a791ee8a6ac3381904a719c530f5d41c41c17de02f416841adc6745ffb lib/unicore/mktables # 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version # 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl # 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl |