Here you go
unless (ref) {
/^(.*)$/;
return $1;
}
elsif (ref eq 'ARRAY') {
@{$_} = map { $_ = untaint_var($_) } @{$_};
return @{$_} if wantarray;
}
elsif (ref eq 'HASH') {
foreach my $k (keys %{$_}) {
(Line 154) ${$_}{untaint_var($k)} = untaint_var(${$_}{$k});
}
return %{$_} if wantarray;
}
elsif (ref eq 'SCALAR' or ref eq 'REF') {
${$_} = untaint_var(${$_});
}
else {
warn "Can't untaint a " . ref($_) . "!\n";
}
return $_;
}
-----Original Message-----
From: Malte S. Stretz [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 17, 2003 4:57 PM
To: [EMAIL PROTECTED]
Cc: Hill, John
Subject: Re: spamd 2.60-cvs
On Thursday 17 July 2003 23:29 CET Justin Mason wrote:
> Hill, John writes:
> >Error on start up:
> >Use of uninitialized value in scalar assignment at
> >/usr/local/lib/perl5/site_perl/5.8.0/Mail/Spamassassin/Util.pm line 154
>
> not an error, just a warning -- nothing serious, but should probably
> be fixed. Malte, if you throw in lots of "if (defined(foo))"
> that should fix it ;)
Hmmm... I'm not sure if that's in my untaint_var() or if John's snapshot is
older than that change. An error in that line is pretty werid -- if it's
the %{$_}, that's not used in our current code and plus two lines (because
of the new hostname code) there's an elsif, so the wanring should occur
earlier. Weird :)
John, could you post the line 154 from that file and the three lines before
and after?
Thanks,
Malte
-------------------------------------------------------
This SF.net email is sponsored by: VM Ware
With VMware you can run multiple operating systems on a single machine.
WITHOUT REBOOTING! Mix Linux / Windows / Novell virtual machines at the
same time. Free trial click here: http://www.vmware.com/wl/offer/345/0
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk
