Made searchrecipe work with perl version in squeeze.

1 files changed, 4 insertions, 1 deletions

diff --git a/mat b/mat
index c6b14e7..8d3b447 100755
--- a/mat
+++ b/mat
@@ -457,7 +457,10 @@ sub cmd_searchrecipes {
 
   my ( $regex ) = @_;
   
-  while (my ($i, $recipe) = each @recipes) {
+  my $i;
+  for my $recipe (@recipes) {
+    $i++;
+#  while (my ($i, $recipe) = each @recipes) {
     next if not defined($recipe);
     if(grep(/$regex/i, $recipe->{'name'})) {
       printf "%4d| %-50s\n", $i, $recipe->{'name'};