Changeset 1691 for trunk/gsdl/perllib

Timestamp:

2000-11-22T16:39:05+13:00 (24 years ago)

Author:

jrm21

Message:

return "" instead of exit 1 on error. This means that if 1 file doesn't
work, RECPlug can do the rest of the directory/ies.

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -155 +155 @@
     if ($output_type eq "fail") {
     print STDERR "Could not convert $tailname$suffix to $convert_to format\n";
-    exit 1;
+    return "";
+### exit 1;
     }
 
@@ -192 +193 @@
     my $output_ext = $self->{'convert_to_ext'};
     my $conv_filename = $self->tmp_area_convert_file($output_ext,$src_filename);
+    if ("$conv_filename" eq "") {return "";} # allows continue on errors
     $self->{'conv_filename'} = $conv_filename;