Changeset 1360


Ignore:
Timestamp:
08/05/00 13:49:40 (20 years ago)
Author:
say1
Message:

clarified status messages

File:
1 edited

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}
Note: See TracChangeset for help on using the changeset viewer.