diff options
author | Karl Williamson <khw@cpan.org> | 2017-12-18 12:49:55 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-12-18 13:05:06 -0700 |
commit | bd08ededc0a47459a95d1f0ce0834a64a9248cbe (patch) | |
tree | cabab56ea4f1d9b0c3f8f64bf7bf29863dd36bb2 /lib | |
parent | 2ca74f27b9bc0543c8ae5da7ace5d7557fb757dd (diff) | |
download | perl-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/mktables | 3 |
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); } |