t4014: abstract away SHA-1-specific constants

diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index d190469cd8b5e1dc427b4029d0d1fb937faef584..c1f52e457f6c5b03947766555e10fba33e7e1b38 100755 (executable)
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -1564,7 +1564,7 @@ sub patch_update_file {
                                        error_msg __("No other hunks to search\n");
                                        next;
                                }
-                               if ($1 eq "") {
+                               if ($regex eq "") {
                                        print colored $prompt_color, __("search for regex? ");
                                        $regex = <STDIN>;
                                        if (defined $regex) {