[perl #23216] ext/IPC/SysV/t/sem.t don't remove semaphore on NetBSD sparc

Try to remove the created message queues and semaphores
even in the case of failures.

p4raw-id: //depot/perl@20490

1 files changed, 7 insertions, 4 deletions

diff --git a/ext/IPC/SysV/t/sem.t b/ext/IPC/SysV/t/sem.t
index b3c813c428..d506519804 100755
--- a/ext/IPC/SysV/t/sem.t
+++ b/ext/IPC/SysV/t/sem.t
@@ -35,8 +35,9 @@ use IPC::Semaphore;
 
 print "1..10\n";
 
-$sem = new IPC::Semaphore(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWXO | IPC_CREAT)
-	|| die "semget: ",$!+0," $!\n";
+my $sem =
+    new IPC::Semaphore(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWXO | IPC_CREAT)
+    || die "semget: ",$!+0," $!\n";
 
 print "ok 1\n";
 
@@ -68,5 +69,7 @@ print "ok 8\n";
 print "not " if $sem->getncnt(0);
 print "ok 9\n";
 
-$sem->remove || print "not ";
-print "ok 10\n";
+END {
+	(defined $sem && $sem->remove) || print "not ";
+	print "ok 10\n";
+}