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 0.27
Take out Data::Dumper to save a few bytes of memory
Say Received: ... via ESMTP instead of via SMTP when the client Say Received: ... via ESMTP instead of via SMTP when the client
speaks ESMTP. (Hoping this can be a useful SpamAssassin rule). 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; chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config; @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
close CF; 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; $self->{_config_cache}->{$config} = \@config;
return wantarray ? @config : $config[0]; return wantarray ? @config : $config[0];
} }

2
lib/Qpsmtpd/SMTP.pm
View File

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

2
plugins/http_config
View File

@ -43,7 +43,7 @@ sub http_config {
chomp @config; chomp @config;
@config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config; @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config;
close CF; 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 (OK, @config) if @config;
} }
return DECLINED; return DECLINED;