Fix Perl warning

diff --git a/wwwtools/nls-status-table b/wwwtools/nls-status-table
index 99cdf3cdc8ff154a932aa1ecd9281b6dda7e8bd8..67fe522a844f953a1b9165fd1d8b45864de9d537 100755 (executable)
--- a/wwwtools/nls-status-table
+++ b/wwwtools/nls-status-table
@@ -141,7 +141,7 @@ foreach my $catalog (sort @catalogs) {
        }
        print "</td>\n";
 
-       print LIST "$catalog/$lang\n" if $list_file and $pct >= $QUALIFIED_CUTOFF;
+       print LIST "$catalog/$lang\n" if $list_file and defined $pct and $pct >= $QUALIFIED_CUTOFF;
     }
 
     print "<td align=\"center\">";