git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eb30a08
)
Failed &write_message is now fatal
author
short
<>
Wed, 16 Apr 2003 16:24:14 +0000
(16:24 +0000)
committer
short
<>
Wed, 16 Apr 2003 16:24:14 +0000
(16:24 +0000)
perlmail-accept
patch
|
blob
|
history
diff --git
a/perlmail-accept
b/perlmail-accept
index
192ffce
..
eeb104b
100755
(executable)
--- a/
perlmail-accept
+++ b/
perlmail-accept
@@
-407,7
+407,7
@@
my($folder,$profile,%args)=@_;
push @AuditStored,$folder if $do{"did"};
return if $store_ignore || $opt_dry;
$DoBell++ if $do{"bell"};
push @AuditStored,$folder if $do{"did"};
return if $store_ignore || $opt_dry;
$DoBell++ if $do{"bell"};
- write_message($folder);
+ write_message($folder)
or die
;
smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
}
smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
}
@@
-463,7
+463,7
@@
my($message)=@_;
);
local @AuditStored=();
do { smssend 0,$opt_smstest; return; } if $opt_smstest;
);
local @AuditStored=();
do { smssend 0,$opt_smstest; return; } if $opt_smstest;
- write_message("$Mail/input");
+ write_message("$Mail/input")
or die
;
audit();
warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
}
audit();
warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
}