Index: lib/Xen/Tools/Log.pm
===================================================================
RCS file: /home/cvs/xen-tools/lib/Xen/Tools/Log.pm,v
retrieving revision 1.2
diff -u -r1.2 Log.pm
--- lib/Xen/Tools/Log.pm	25 Sep 2007 20:05:16 -0000	1.2
+++ lib/Xen/Tools/Log.pm	2 Oct 2007 15:03:24 -0000
@@ -152,9 +152,12 @@
   system( 'mkdir -p', $self->logpath() ) unless -d $self->logpath();
 
   carp "Couldn't create log directory: $!" unless $? == 0;
-  
-  open( $self->{log_fh}, q{>>}, $logFile ) or
-    carp "Couldn't open log file for append: $!";
+
+  croak "Couldn't open log file for append: $!"
+    unless open( my $log_fh, q{>>}, $logFile );
+
+  $self->{log_fh} = $log_fh;
+
 };
 
 =head1 AUTHOR