Parent Directory
|
Revision Log
|
Patch
| Revision 2726 | Revision 3371 | ||
|---|---|---|---|
| … | … | ||
| 20 | 20 | ||
| 21 | sub _check { | 21 | sub _check { |
| 22 | my $self = shift; | 22 | my $self = shift; |
| 23 | $self->SUPER::_check; | 23 | $self->SUPER::_check; |
| 24 | my $uop = $self->{def}{string} || $self->{uop}; | 24 | my $uop = $self->{def}{string} || $self->{uop}; |
| 25 | $self->Error("Can't use '$uop' in this context") | 25 | $self->Error("Can't use '%s' in this context",$uop) |
| 26 | unless $self->{op}->class eq 'Number'; | 26 | unless $self->{op}->class eq 'Number'; |
| 27 | } | 27 | } |
| 28 | 28 | ||
| 29 | package main; | 29 | package main; |
| 30 | 30 | ||
|
||||||||
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |