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

remove empty DESTROY()

Browse Source
This commit is contained in:
Matt Simerson 2014-09-10 10:37:58 -07:00
parent 625905a193
commit 197be1515c
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Qpsmtpd.pm
View File

@ -42,8 +42,6 @@ sub _restart {
} }
} }
sub DESTROY { }
sub version { $VERSION . ($git ? "/$git" : "") } sub version { $VERSION . ($git ? "/$git" : "") }
sub TRACE_LEVEL { $TraceLevel }; # leave for plugin compatibility sub TRACE_LEVEL { $TraceLevel }; # leave for plugin compatibility
@ -261,14 +259,14 @@ sub _config_from_file {
$visited ||= []; $visited ||= [];
push @{$visited}, $configfile; push @{$visited}, $configfile;
open CF, "<$configfile" open my $CF, '<', $configfile
or warn "$$ could not open configfile $configfile: $!" and return; or warn "$$ could not open configfile $configfile: $!" and return;
my @config = <CF>; my @config = <$CF>;
chomp @config; chomp @config;
@config = grep { length($_) and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config = grep { length($_) and $_ !~ m/^\s*#/ and $_ =~ m/\S/ }
map { s/^\s+//; s/\s+$//; $_; } # trim leading/trailing whitespace map { s/^\s+//; s/\s+$//; $_; } # trim leading/trailing whitespace
@config; @config;
close CF; close $CF;
my $pos = 0; my $pos = 0;
while ($pos < @config) { while ($pos < @config) {