413 |
} elsif ( $c =~ m/^t/ ) { |
} elsif ( $c =~ m/^t/ ) { |
414 |
$self->trace( not $self->trace ); |
$self->trace( not $self->trace ); |
415 |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
416 |
|
$last = ''; |
417 |
} elsif ( $c =~ m/^d/ ) { |
} elsif ( $c =~ m/^d/ ) { |
418 |
$self->debug( not $self->debug ); |
$self->debug( not $self->debug ); |
419 |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
420 |
|
$last = ''; |
421 |
} else { |
} else { |
422 |
warn "# ignored $line\n" if ($line); |
warn "# ignored $line\n" if ($line); |
423 |
$last = ''; |
$last = ''; |