perl 3.0: (no announcement message available)perl-3.000

A few of the new features: (18 Oct)

    * Perl can now handle binary data correctly and has functions to pack and unpack binary structures into arrays or lists. You can now do arbitrary ioctl functions.
    * You can now pass things to subroutines by reference.
    * Debugger enhancements.
    * An array or associative array may now appear in a local() list.
    * Array values may now be interpolated into strings.
    * Subroutine names are now distinguished by prefixing with &. You can call subroutines without using do, and without passing any argument list at all.
    * You can use the new -u switch to cause perl to dump core so that you can run undump and produce a binary executable image. Alternately you can use the "dump" operator after initializing any variables and such.
    * You can now chop lists.
    * Perl now uses /bin/csh to do filename globbing, if available. This means that filenames with spaces or other strangenesses work right.
    * New functions: mkdir and rmdir, getppid, getpgrp and setpgrp, getpriority and setpriority, chroot, ioctl and fcntl, flock, readlink, lstat, rindex, pack and unpack, read, warn, dbmopen and dbmclose, dump, reverse, defined, undef.

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);