Index: /lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm
===================================================================
--- /lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm (revision 1004)
+++ /lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm (revision 1005)
@@ -132,5 +132,5 @@
     Proc::Daemon::Init();
     if ( defined $pid_fname ) {
-        open my $pid, '>>', $pid_fname or die "cannot open pid file: $pid_fname";
+        open my $pid, '>', $pid_fname or die "cannot open pid file: $pid_fname";
         $pid->print("$$\n");
         close $pid;