diff options
Diffstat (limited to 'eg/shmkill')
| -rw-r--r-- | eg/shmkill | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/eg/shmkill b/eg/shmkill index ba288d8e0d..f3d4aecb18 100644 --- a/eg/shmkill +++ b/eg/shmkill @@ -1,11 +1,11 @@ #!/usr/bin/perl -# $Header: shmkill,v 2.0 88/06/05 00:16:59 root Exp $ +# $Header: shmkill,v 3.0 89/10/18 15:16:09 lwall Locked $ # A script to call from crontab periodically when people are leaving shared # memory sitting around unattached. -open(ipcs,'ipcs -m -o|') || die "Can't run ipcs"; +open(ipcs,'ipcs -m -o|') || die "Can't run ipcs: $!"; while (<ipcs>) { $tmp = index($_,'NATTCH'); @@ -13,7 +13,7 @@ while (<ipcs>) { if (/^m/) { ($m,$id,$key,$mode,$owner,$group,$attach) = split; if ($attach != substr($_,$pos,6)) { - die "Different ipcs format--can't parse!"; + die "Different ipcs format--can't parse!\n"; } if ($attach == 0) { push(@goners,'-m',$id); |