Last two warnings in ui-lib and web-lib-funcs fixed.

diff --git a/ui-lib.pl b/ui-lib.pl
index acdcfd9..fbd3cdd 100755 (executable)
--- a/ui-lib.pl
+++ b/ui-lib.pl
@@ -1831,7 +1831,7 @@ $rv .= "</td></tr>\n";
 $rv .= "<tr>\n";
 $rv .= "<td bgcolor=#ffffff width=1><img src=$imgdir/1x1.gif></td>\n";
 foreach my $t (@$tabs) {
-       if ($t ne $tabs[0]) {
+       if ($t ne $$tabs[0]) {
                # Spacer
                $rv .= "<td width=2 bgcolor=#ffffff class='ui_tab_spacer'>".
                       "<img src=$imgdir/1x1.gif></td>\n";

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index f4013a9..6889678 100755 (executable)
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -2691,6 +2691,7 @@ else {
 foreach my $f (@files) {
        my $eol = $_[1] || $main::file_cache_eol{$f} || "\n";
        if (!$main::file_cache_noflush{$f}) {
+               no warnings; # XXX Bareword file handles should go away
                &open_tempfile(FLUSHFILE, ">$f");
                foreach my $line (@{$main::file_cache{$f}}) {
                        (print FLUSHFILE $line,$eol) ||