Changeset 2877

Timestamp:

Jan 3, 2005, 4:12:50 PM (22 years ago)

Author:

jhoblitt

Message:

add check for valid filehandles in copy

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (2 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.5 2005-01-04 02:02:23 jhoblitt Exp $
+# $Id: Client.pm,v 1.6 2005-01-04 02:12:50 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -542 +542 @@
 
     my $fh      = $self->open( $key, 'read' );
+    unless ( $fh ) {
+        $log->debug( "can not open object" );
+        $log->debug( "leaving" );
+
+        return undef;
+    }
+
     my $new_fh  = $self->create( $new_key );
+    unless ( $new_fh ) {
+        $log->debug( "can not open object" );
+        $log->debug( "leaving" );
+
+        return undef;
+    }
 
     File::Copy::copy( $fh, $new_fh ) or $log->logdie( "can not copy object $key" );