| # | Line 28 | Line 28 | |
|---|---|---|
| 28 | # reset() : Clean out all the features | |
| 29 | ||
| 30 | package BuildSystem::Tool; | |
| 31 | + | use Utilities::Verbose; |
| 32 | require 5.004; | |
| 33 | + | @ISA=qw(Utilities::Verbose); |
| 34 | ||
| 35 | sub new { | |
| 36 | my $class=shift; | |
| # | Line 178 | Line 180 | sub store { | |
| 180 | my $location=shift; | |
| 181 | ||
| 182 | my $fh=FileHandle->new(); | |
| 183 | + | $self->verbose("opening $location for output"); |
| 184 | $fh->open(">".$location) or die "Unable to open $location for output". | |
| 185 | $!."\n"; | |
| 186 | print $fh "name:".$self->name().":_sys\n"; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |