[perl-Gtk2] Fix a test failure in GtkSocket-GtkPlug.t

[Torsten Schönfeld <tsch src gnome org>]

commit 3877dc16af0009cd900922c579255ff302950ea1
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun May 30 14:24:12 2010 +0200

    Fix a test failure in GtkSocket-GtkPlug.t
    
    Correct a skip count, and also use skip() instead of die() if fork()
    returned a negative number.

 t/GtkSocket-GtkPlug.t |    6 +-----
 1 files changed, 1 insertions(+), 5 deletions(-)
---
diff --git a/t/GtkSocket-GtkPlug.t b/t/GtkSocket-GtkPlug.t
index d17e839..20944aa 100644
--- a/t/GtkSocket-GtkPlug.t
+++ b/t/GtkSocket-GtkPlug.t
@@ -30,12 +30,8 @@ SKIP: {
 
 my $pid = fork;
 
-skip 'fork failed', 1 unless defined $pid;
+skip 'fork failed', 2 unless defined $pid && $pid >= 0;
 
-if( $pid < 0 )
-{
-	die "fork failed, no use trying";
-}
 if( $pid == 0 )
 {
 	exec("$^X -Mblib -e 'my \$id = $id;\n\n" . <<EOL);