sub write {
my $self = shift;
my $fh = $self->file->openw;
- $fh->print($self->pid);
+ $fh->print($self->pid . "\n");
$fh->close;
}
=head1 LICENCE AND COPYRIGHT
-Copyright (c) 2007, Chris Prather C<< <perigrin@cpan.org> >>. All rights
+Copyright (c) 2007-2008, Chris Prather C<< <perigrin@cpan.org> >>. All rights
reserved.
This module is free software; you can redistribute it and/or
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
-=cut
\ No newline at end of file
+=cut