diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-01-04 16:53:13 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-01-04 17:04:32 -0700 |
| commit | e6451557b342a85bcb58369ead2e1ade2c20f81b (patch) | |
| tree | e966e6b0268c1a0752cb540b5c7e1770226bde95 | |
| parent | 56343c7876bb5c64b390f97a6352bd35a04ec558 (diff) | |
| download | perl-e6451557b342a85bcb58369ead2e1ade2c20f81b.tar.gz | |
mktables: improve debug statement
Don't output an empty list.
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 2bf198773f..18311fad2a 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -3823,7 +3823,7 @@ sub trace { return main::trace(@_); } trace "i =[", $i, "]", $r->[$i]; trace 'i+1=[', $i+1, ']', $r->[$i+1] if $i < @$r - 1; trace 'i+2=[', $i+2, ']', $r->[$i+2] if $i < @$r - 2; - trace "removed @return"; + trace "removed ", @return if @return; } # An actual deletion could have changed the maximum in the list. |