Changeset 1360 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2000-08-05T13:49:40+12:00 (24 years ago)

Author:

say1

Message:

clarified status messages

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -33 +33 @@
 use strict;
 use doc;
+use diagnostics;
 
 sub print_general_usage {
@@ -342 +343 @@
 
     my $acro_array =  &acronym::acronyms($textref);
-
+    
     foreach my $acro (@$acro_array) {
 
@@ -352 +353 @@
         {
         $seen_before = "true";
-        print STDERR "  not adding ". $acro->to_string() . "\n" 
+        print STDERR "  already seen ". $acro->to_string() . "\n" 
             if ($self->{'verbosity'} >= 2);
         }       
@@ -373 +374 @@
     }
     }
-    print STDERR " checked for acronyms.\n" 
+    print STDERR " done with acronyms. \n" 
     if ($self->{'verbosity'} >= 2);
 }