Changeset 1360 for trunk/gsdl/perllib
- Timestamp:
- 2000-08-05T13:49:40+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r1335 r1360 33 33 use strict; 34 34 use doc; 35 use diagnostics; 35 36 36 37 sub print_general_usage { … … 342 343 343 344 my $acro_array = &acronym::acronyms($textref); 344 345 345 346 foreach my $acro (@$acro_array) { 346 347 … … 352 353 { 353 354 $seen_before = "true"; 354 print STDERR " not adding". $acro->to_string() . "\n"355 print STDERR " already seen ". $acro->to_string() . "\n" 355 356 if ($self->{'verbosity'} >= 2); 356 357 } … … 373 374 } 374 375 } 375 print STDERR " checked for acronyms.\n"376 print STDERR " done with acronyms. \n" 376 377 if ($self->{'verbosity'} >= 2); 377 378 }
Note:
See TracChangeset
for help on using the changeset viewer.