I agree. When I read your inital comments I immediately thought you might be running this on a Win32 system. The Mail::Audit module is attempting to use the getpwuid function which isn't supported on Win32. In this case you might be able to alter the Mail::Audit module on your system manually to work around this problem. If you read through the source code for Mail::Audit the module makes several calls to the getpwuid function. Try and amend these few lines to make them Win32 compliant and then re-run your script.
Have fun!
Dean | [reply] |
Try and amend these few lines to make them Win32 compliant.
The other possible approach is to actually write your
own getpwuid. Now, doing a general, re-usable one is
hard, because Win32 doesn't supply certain things.
(That's why Perl doesn't do this in the first place.)
However, you likely only need to return values for
one user (yourself), and so a special-case version
of it that just works for you might be easy.
Especially since the calling code may only be
using certain values, such as the username and
"comment" (i.e., human-readable name).
Of course, this may also be futile, since code that
relies on getpwuid may make other assumptions that
will break on Win32 as well.
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
| [reply]
[d/l] |