[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Dns.pm,1.143,1.144

Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory sc8-pr-cvs1:/tmp/cvs-serv28808/lib/Mail/SpamAssassin

Modified Files:
        Dns.pm 
Log Message:
bug 2463: warnings due to %ENV autovivifaction


Index: Dns.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/Dns.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -b -w -u -d -r1.143 -r1.144
--- Dns.pm      26 Aug 2003 14:46:22 -0000      1.143
+++ Dns.pm      16 Sep 2003 02:10:34 -0000      1.144
@@ -1106,11 +1106,13 @@
 
   dbg ("entering helper-app run mode");
   $self->{old_slash} = $/;              # Razor pollutes this
+  %{$self->{old_env}} = ();
   if ( defined %ENV ) {
-    %{$self->{old_env}} = %ENV;
+    # undefined values in %ENV can result due to autovivification elsewhere,
+    # this prevents later possible warnings when we restore %ENV
+    while (my ($key, $value) = each %ENV) {
+      $self->{old_env}->{$key} = $value if defined $value;
   }
-  else {
-    %{$self->{old_env}} = ();
   }
 
   Mail::SpamAssassin::Util::clean_path_in_taint_mode();



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf