ezmlm-web/ezmlm-web-modules
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

module Mail::Ezmlm:

Browse source 
* fixed warning in function 'get_charset'
* improved code style
This commit is contained in:
lars 2008-09-27 23:15:53 +00:00
parent 24c9ddb067
commit 7479782d18
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Ezmlm/trunk/Ezmlm.pm
View file

@ -52,7 +52,7 @@ require Exporter;
@EXPORT = qw( @EXPORT = qw(
); );
$VERSION = '0.08'; $VERSION = '0.09';
require 5.005; require 5.005;
@ -204,11 +204,11 @@ sub getconfig {
my($options); my($options);
# Read the config file # Read the config file
if(-e "$self->{'LIST_NAME'}/flags") { if(-e $self->{LIST_NAME} . "/flags") {
# this file exists since ezmlm-idx-5.0.0 # this file exists since ezmlm-idx-5.0.0
# 'config' is not authorative anymore since that version # 'config' is not authorative anymore since that version
$options = $self->_getconfig_idx5(); $options = $self->_getconfig_idx5();
} elsif(open(CONFIG, "<$self->{'LIST_NAME'}/config")) { } elsif(open(CONFIG, "<" . $self->{LIST_NAME} . "/config")) {
# 'config' contains the authorative information # 'config' contains the authorative information
while(<CONFIG>) { while(<CONFIG>) {
if (/^F:-(\w+)/) { if (/^F:-(\w+)/) {
@ -551,7 +551,8 @@ sub set_lang {
sub get_charset { sub get_charset {
my ($self) = shift; my ($self) = shift;
my $charset; my $charset;
chomp($charset = $self->getpart('charset')); $charset = $self->getpart('charset');
$charset = '' unless defined($charset);
# default if no 'charset' file exists # default if no 'charset' file exists
$charset = 'us-ascii' if ($charset eq ''); $charset = 'us-ascii' if ($charset eq '');
return $charset; return $charset;