From a000e1f88a20cf277f0731acd7793d30b4feef82 Mon Sep 17 00:00:00 2001
From: stdiff <stdiff@outlook.de>
Date: Wed, 9 Sep 2015 22:37:49 +0200
Subject: [PATCH] bug fix for as_list() No.16

---
 lib/Math/MatrixReal.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Math/MatrixReal.pm b/lib/Math/MatrixReal.pm
index 06c1afa..d154f30 100644
--- a/lib/Math/MatrixReal.pm
+++ b/lib/Math/MatrixReal.pm
@@ -657,7 +657,7 @@ sub as_list
     my($rows,$cols) = ($self->[1], $self->[2]);
     my @list;
     for(my $i = 0; $i < $rows; $i++ ){
-        for(my $j = 0; $j < $rows; $j++){
+        for(my $j = 0; $j < $cols; $j++){
             push @list, $self->[0][$i][$j];
         }
     }