YA resync with mainstem, including VMS patches from others

[p5sagit/p5-mst-13.2.git] / eg / sysvipc / ipcshm

diff --git a/eg/sysvipc/ipcshm b/eg/sysvipc/ipcshm
index 70588ff..ecc1ba4 100644 (file)
--- a/eg/sysvipc/ipcshm
+++ b/eg/sysvipc/ipcshm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
-       if 0;
+       if $running_under_some_shell;
 
 require 'sys/ipc.ph';
 require 'sys/shm.ph';
@@ -13,8 +13,8 @@ $send = ($mode eq "s");
 
 $SIZE = 32;
 $id = shmget(0x1234, $SIZE, ($send ? 0 : &IPC_CREAT) | 0644);
-die "Can't get message queue: $!\n" unless defined($id);
-print "message queue id: $id\n";
+die "Can't get shared memory: $!\n" unless defined($id);
+print "shared memory id: $id\n";
 
 if ($send) {
        while (<STDIN>) {