--- ForkBlock.pm~	Wed Dec 24 21:14:35 2008
+++ ForkBlock.pm	Thu Dec 25 02:08:18 2008
@@ -27,10 +27,10 @@
 #private--implements the actual forking
 sub phork {
     my %params=%{shift()};
-    
-    my $parent=$params{"parent"};
-    my $child =$params{"child"} ;
-    my $error =$params{"error"} ;
+
+    my $parent=$params{parent}|| $params{Parent};
+    my $child =$params{child} || $params{Child};
+    my $error =$params{error} || $params{Error};
 
     croak "No Child defined" unless $child;
     croak "No Parent defined" unless $parent;