Fixed PerlMail::Config separate namespace.
authorshort <>
Sat, 18 Oct 2003 19:51:12 +0000 (19:51 +0000)
committershort <>
Sat, 18 Oct 2003 19:51:12 +0000 (19:51 +0000)
perlmail-accept

index 0213a48..967a758 100755 (executable)
@@ -314,7 +314,7 @@ sub smssend
 {
 my($ignorenewmail,$smscount,%args)=@_;
 
-       my $text=audit_sms(
+       my $text=PerlMail::Config::audit_sms(
                        "subject"=>unmime($Audit->subject()),
                        "from"=>[ Mail::Address->parse(unmime($Audit->from())) ],
                        "body"=>substr(body_simple(),0,$MaxBodySMS*(1+0.25*$smscount)),
@@ -476,7 +476,7 @@ my($message)=@_;
        local @AuditStored=();
        do { smssend 0,$opt_smstest; return; } if $opt_smstest;
        write_message("$Mail/input") or die;
-       audit();
+       PerlMail::Config::audit();
        warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
 }