diff options
| author | fukachan <fukachan> | 2002-01-30 15:50:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-30 15:50:31 +0000 |
| commit | eec3fb6d6aa9ffe509abbab89f304f450295d860 (patch) | |
| tree | 6361963ee03eb88ea5ee4e942097d8ac4865f48f | |
| parent | d19bf5861c6b4cf0db3805d0e0b8c4f6adf91b77 (diff) | |
| download | fml8-eec3fb6d6aa9ffe509abbab89f304f450295d860.tar.gz fml8-eec3fb6d6aa9ffe509abbab89f304f450295d860.tar.bz2 fml8-eec3fb6d6aa9ffe509abbab89f304f450295d860.zip | |
oops, fix fucntion call syntax.
| -rw-r--r-- | fml/lib/Mail/Delivery/Queue.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm index 1683934f..c0c0617e 100644 --- a/fml/lib/Mail/Delivery/Queue.pm +++ b/fml/lib/Mail/Delivery/Queue.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Queue.pm,v 1.10 2002/01/13 15:46:53 fukachan Exp $ +# $FML: Queue.pm,v 1.11 2002/01/30 15:42:26 fukachan Exp $ # package Mail::Delivery::Queue; @@ -96,12 +96,12 @@ sub new $me->{ _info }->{ recipients } = File::Spec->catfile($dir, "info", "recipients", $id); for ($dir, - &File::Spec->catfile($dir, "active"), - &File::Spec->catfile($dir, "new"), - &File::Spec->catfile($dir, "deferred"), - &File::Spec->catfile($dir, "info"), - &File::Spec->catfile($dir, "info", "sender"), - &File::Spec->catfile($dir, "info", "recipients")) { + File::Spec->catfile($dir, "active"), + File::Spec->catfile($dir, "new"), + File::Spec->catfile($dir, "deferred"), + File::Spec->catfile($dir, "info"), + File::Spec->catfile($dir, "info", "sender"), + File::Spec->catfile($dir, "info", "recipients")) { -d $_ || _mkdirhier($_); } |