summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-12-18 12:49:55 -0700
committerKarl Williamson <khw@cpan.org>2017-12-18 13:05:06 -0700
commitbd08ededc0a47459a95d1f0ce0834a64a9248cbe (patch)
treecabab56ea4f1d9b0c3f8f64bf7bf29863dd36bb2 /lib
parent2ca74f27b9bc0543c8ae5da7ace5d7557fb757dd (diff)
downloadperl-bd08ededc0a47459a95d1f0ce0834a64a9248cbe.tar.gz
mktables: Use already set variable
The value for this variable is already known; use that instead of rederiving it.
Diffstat (limited to 'lib')
-rw-r--r--lib/unicore/mktables3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 39540df758..57c2e431ad 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -14032,9 +14032,8 @@ END
# This has to be in a separate loop from above, so as to wait until
# the tables are stabilized before checking for equivalency.
if (defined $pod_directory) {
- my $sc = property_ref("Script");
foreach my $table ($scx->tables) {
- my $plain_sc_equiv = $sc->table($table->name);
+ my $plain_sc_equiv = $script->table($table->name);
if ($table->matches_identically_to($plain_sc_equiv)) {
$plain_sc_equiv->set_equivalent_to($table, Related => 1);
}