- open my $fh, '>:raw', $object->full_filedescriptor or die "could not open " . $object->filename . ": $!";
+ if ($params{file}) {
+ croak 'No valid file' unless -f $params{file};
+ File::Copy::copy($params{file}, $object->full_filedescriptor) or croak "Copy failed from $params{file} to @{[ $object->filename ]}: $!";
+ } else {
+
+ open my $fh, '>:raw', $object->full_filedescriptor or die "could not open " . $object->filename . ": $!";
+
+ $fh->print(${ $params{data} });