ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/Verbose.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/Verbose.pm (file contents):
Revision 1.2 by williamc, Mon Aug 28 08:35:17 2000 UTC vs.
Revision 1.3 by williamc, Wed Nov 15 10:20:07 2000 UTC

# Line 29 | Line 29 | sub verbosity {
29          if ( @_ ) {
30             $self->{verbose}=shift;
31          }
32 +        else {
33 +          my $id="VERBOSE_".ref($self);
34 +          if ( defined $ENV{$id} ) {
35 +             return $ENV{$id};
36 +          }
37 +        }
38          $self->{verbose};
33 –        
39   }
40  
41   sub verbose {
42          my $self=shift;
43          my $string=shift;
44  
45 <        if ( $self->{verbose} ) {
45 >        if ( $self->verbosity() ) {
46            print ">".ref($self)."($self) : \n->".$string."\n";
47          }
48   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines