From 0baf8fc2f9d128018b078d4d77336523fe5e9ddd Mon Sep 17 00:00:00 2001
From: jsteube <jens.steube@gmail.com>
Date: Thu, 3 Jan 2019 12:51:45 +0100
Subject: [PATCH] Fix constraints in -m 30 and -m 40 and return array in -m 40

---
 tools/test_modules/m00030.pm | 2 +-
 tools/test_modules/m00040.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/test_modules/m00030.pm b/tools/test_modules/m00030.pm
index ec6c20d93..07ac843f4 100644
--- a/tools/test_modules/m00030.pm
+++ b/tools/test_modules/m00030.pm
@@ -11,7 +11,7 @@ use warnings;
 use Digest::MD5 qw (md5_hex);
 use Encode;
 
-sub module_constraints { [[0, 127], [0, 255], [0, 27], [0, 54], [0, 27]] }
+sub module_constraints { [[0, 255], [0, 255], [0, 27], [0, 55], [0, 27]] }
 
 sub module_generate_hash
 {
diff --git a/tools/test_modules/m00040.pm b/tools/test_modules/m00040.pm
index d9c8e15fc..dbffa16da 100644
--- a/tools/test_modules/m00040.pm
+++ b/tools/test_modules/m00040.pm
@@ -11,7 +11,7 @@ use warnings;
 use Digest::MD5 qw (md5_hex);
 use Encode;
 
-sub module_constraints { [[0, 127], [0, 127], [0, 27], [0, 55], [0, 27]] }
+sub module_constraints { [[0, 255], [0, 255], [0, 27], [0, 55], [0, 27]] }
 
 sub module_generate_hash
 {
@@ -39,7 +39,7 @@ sub module_verify_hash
 
   my $new_hash = module_generate_hash ($word, $salt);
 
-  return $new_hash;
+  return ($new_hash, $word);
 }
 
 1;