byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't use Data::Dumper

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@172 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2003-09-15 10:50:27 +00:00
parent 891778b175
commit 2a76892570
4 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -1,5 +1,7 @@
0.27
Take out Data::Dumper to save a few bytes of memory
Say Received: ... via ESMTP instead of via SMTP when the client
speaks ESMTP. (Hoping this can be a useful SpamAssassin rule).

2
lib/Qpsmtpd.pm
View File

@ -82,7 +82,7 @@ sub get_qmail_config {
chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
close CF;
$self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
#$self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
$self->{_config_cache}->{$config} = \@config;
return wantarray ? @config : $config[0];
}

2
lib/Qpsmtpd/SMTP.pm
View File

@ -14,7 +14,7 @@ use Qpsmtpd::Constants;
use Mail::Address ();
use Mail::Header ();
use IPC::Open2;
use Data::Dumper;
#use Data::Dumper;
use POSIX qw(strftime);
use Net::DNS;

2
plugins/http_config
View File

@ -43,7 +43,7 @@ sub http_config {
chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config;
close CF;
$self->log(0, "returning http_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
# $self->log(0, "returning http_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
return (OK, @config) if @config;
}
return DECLINED;