Changeset 1360

Show
Ignore:
Timestamp:
05.08.2000 13:49:40 (19 years ago)
Author:
say1
Message:

clarified status messages

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r1335 r1360  
    3333use strict; 
    3434use doc; 
     35use diagnostics; 
    3536 
    3637sub print_general_usage { 
     
    342343 
    343344    my $acro_array =  &acronym::acronyms($textref); 
    344  
     345     
    345346    foreach my $acro (@$acro_array) { 
    346347 
     
    352353        { 
    353354        $seen_before = "true"; 
    354         print STDERR "  not adding ". $acro->to_string() . "\n"  
     355        print STDERR "  already seen ". $acro->to_string() . "\n"  
    355356            if ($self->{'verbosity'} >= 2); 
    356357        }        
     
    373374    } 
    374375    } 
    375     print STDERR " checked for acronyms.\n"  
     376    print STDERR " done with acronyms. \n"  
    376377    if ($self->{'verbosity'} >= 2); 
    377378}