Changeset 6983
- Timestamp:
- 2004-03-09T15:06:40+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/HTML.pm
r6968 r6983 61 61 push( @{$option_list}, $options ); 62 62 63 if ($self->{'info_only'}) { 64 # created from classinfo.pl - don't need to parse the arguments 65 return bless $self, $class; 66 } 67 63 68 my ($title, $url); 64 69 … … 73 78 } 74 79 75 if (! defined$url) {80 if (!$url) { 76 81 my $outhandle = $self->{'outhandle'}; 77 print $outhandle "Error: HTML classifier contains no 'url' option\n"; 78 die "\n"; 82 print $outhandle "HTML Error: required option -url not supplied\n"; 83 $self->print_txt_usage(""); 84 die "HTML Error: required option -url not supplied\n"; 79 85 } 80 86
Note:
See TracChangeset
for help on using the changeset viewer.