--- loncom/publisher/lonpublisher.pm 2000/12/04 15:39:28 1.13 +++ loncom/publisher/lonpublisher.pm 2000/12/08 23:36:37 1.14 @@ -520,12 +520,14 @@ if (-e $target) { $copyfile=$copyfile.'.meta'; if (copy($target.'.meta',$copyfile)) { - print $logfile "Copied old target metadata to ".$copyfile."\n"; + print $logfile "Copied old target metadata to ".$copyfile."\n"; $scrout.='

Copied old metadata'; } else { print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n"; - return + if (-e $target.'.meta') { + return "Failed to write old metadata copy, $!, FAIL"; + } }