Determine if only one instance is running: Difference between revisions

m
→‎{{header|Perl 6}}: fix file open error handling
m (→‎{{header|REXX}}: capitalized an acronym.)
m (→‎{{header|Perl 6}}: fix file open error handling)
Line 800:
}
 
my $pidfile = open "$lockpid", :w ororelse .die "Can't create $lockpid: $!";
$pidfile.say($pid);
$pidfile.close;
2,392

edits