Changeset 2024 for trunk/gsdl
- Timestamp:
- 2001-02-20T15:05:25+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify.pm
r1839 r2024 67 67 } 68 68 } 69 push @newoptions, "-builddir", "$build_dir" ;70 push @newoptions, "-outhandle", "$outhandle" ;69 push @newoptions, "-builddir", "$build_dir" if ($build_dir); 70 push @newoptions, "-outhandle", "$outhandle" if ($outhandle); 71 71 push @newoptions, "-verbosity", "2"; 72 72 … … 74 74 my $options .= join (",", @newoptions); 75 75 76 # print STDERR "$classname\noptions: $options\n";77 76 eval ("\$classobj = new \$classname($options)"); 78 77 die "$@" if $@; … … 149 148 $outputtext .= "<thistype>$classifyinfo->{'thistype'}\n" 150 149 if defined $classifyinfo->{'thistype'}; 151 150 $outputtext .= "<parameters>$classifyinfo->{'parameters'}\n" 151 if defined $classifyinfo->{'parameters'}; 152 152 153 153 my $contains_text = "<contains>";
Note:
See TracChangeset
for help on using the changeset viewer.