diff options
| author | Jesse Luehrs <doy@tozt.net> | 2014-10-07 13:45:17 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2014-10-07 13:46:04 -0400 |
| commit | ffcd82f3b5f1fb197550b005b11cae1651a8fe34 (patch) | |
| tree | d13089d8bb0e6b434e7de35d6564d9d1efb72ad5 /lib | |
| parent | 34123b9d0460b50118a76290aafa0fc31eb365b1 (diff) | |
| download | image-pnm-ffcd82f3b5f1fb197550b005b11cae1651a8fe34.tar.gz image-pnm-ffcd82f3b5f1fb197550b005b11cae1651a8fe34.zip | |
fix mixed up width and height
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Image/PNM.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Image/PNM.pm b/lib/Image/PNM.pm index bc748e7..793750d 100644 --- a/lib/Image/PNM.pm +++ b/lib/Image/PNM.pm @@ -161,9 +161,9 @@ sub _parse_pnm_P3 { }; $self->{pixels} = []; - for my $i (1..$self->{w}) { + for my $i (1..$self->{h}) { my $row = []; - for my $j (1..$self->{h}) { + for my $j (1..$self->{w}) { push @$row, [ $next_word->(), $next_word->(), |