--- ForkBlock.pm~	Wed Dec 24 20:18:01 2008
+++ ForkBlock.pm	Wed Dec 24 21:02:50 2008
@@ -31,6 +31,9 @@
     my $parent=$params{"parent"};
     my $child =$params{"child"} ;
     my $error =$params{"error"} ;
+
+    croak "No Child defined" unless $child;
+    croak "No Parent defined" unless $parent;
     
     local $!;