Subject: | Quell warnings (use of implicit split to @_ in Maildir) |
diff -urP Email-LocalDelivery/LocalDelivery/Maildir.pm Email-LocalDelivery-new/LocalDelivery/Maildir.pm
--- Email-LocalDelivery/LocalDelivery/Maildir.pm 2003-04-07 15:36:43.000000000 +0100
+++ Email-LocalDelivery-new/LocalDelivery/Maildir.pm 2003-04-07 19:53:25.000000000 +0100
@@ -25,7 +25,8 @@
sub fix_lines {
my ($class, $mail) = @_;
return if $mail->header("Lines");
- $mail->header("Lines", scalar split /\n/, $mail->body);
+ my @lines = split /\n/, $mail->body;
+ $mail->header("Lines", scalar @lines);
}
sub update_time {