diff options
Diffstat (limited to 'lib/Image/PNM.pm')
-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->(), |