[s2] clean up log messages that appear when global warnings are on

[fu]

[commit: http://hg.dwscoalition.org/s2/rev/9731e9ff365b]

http://bugs.dwscoalition.org/show_bug.cgi?id=3040

No warnings for S2 compilation.

Patch by kareila.

Files modified:

• S2.pm

--------------------------------------------------------------------------------
diff -r d9c442fda58a -r 9731e9ff365b S2.pm
--- a/S2.pm	Sat Sep 11 09:41:19 2010 -0500
+++ b/S2.pm	Mon Sep 20 17:14:55 2010 +0800
@@ -229,6 +229,7 @@ sub load_layers_from_db
     my $sth = $db->prepare("SELECT s2lid, compdata, comptime FROM s2compiled WHERE $where");
     $sth->execute;
     while (my ($id, $comp, $comptime) = $sth->fetchrow_array) {
+        local $^W = 0;  # don't warn about problems with $comp
         eval $comp;
         if ($@) {
             my $err = $@;
--------------------------------------------------------------------------------