if ( not $self->{author} ) {

##</code><code>##

if ( ( not $self->{author} ) && ( $^O ne 'MSWin32' ) ) {

##</code><code>##

croak "Must specify an author\n" unless $self->{author};