diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-08-29 19:16:26 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 19:16:26 +0100 |
| commit | 2b28ab91084f37a5e9014737d0df694587fe60cf (patch) | |
| tree | 5aa4089d4b3589584d1b6e945184a2fad51b62e6 /lib/Enigmatic/Rotor.pm | |
| parent | full-machine and tests (diff) | |
| download | Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.tar.gz Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.tar.bz2 Enigmatic-2b28ab91084f37a5e9014737d0df694587fe60cf.zip | |
fixed rotor ring settings
and removed debug prints
Diffstat (limited to 'lib/Enigmatic/Rotor.pm')
| -rw-r--r-- | lib/Enigmatic/Rotor.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Enigmatic/Rotor.pm b/lib/Enigmatic/Rotor.pm index 9a88718..f725160 100644 --- a/lib/Enigmatic/Rotor.pm +++ b/lib/Enigmatic/Rotor.pm @@ -68,10 +68,9 @@ sub _real_map { my $setting = $self->ring_setting; - my $log = "{$letter"; - $letter = _rotate_by($letter,$setting);$log.=$letter; - $letter = $self->$wiring->at($letter);$log.=$letter; -# $letter = _rotate_by($letter,-$setting);$log.=$letter; - $log .= "}\n";warn $log; + $letter = _rotate_by($letter,-$setting); + $letter = $self->$wiring->at($letter); + $letter = _rotate_by($letter,$setting); + return $letter; } |