doc lint: Perl "strict" and "warnings" in lint-gitlink.perl

[thirdparty/git.git] / Documentation / lint-gitlink.perl

diff --git a/Documentation/lint-gitlink.perl b/Documentation/lint-gitlink.perl
index 476cc30b837ecfb25a82406dd0859d04a00c1190..35230875c248b4c43fad943404167d4a75ddd1b2 100755 (executable)
--- a/Documentation/lint-gitlink.perl
+++ b/Documentation/lint-gitlink.perl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+use strict;
+use warnings;
 use File::Find;
 use Getopt::Long;
 
@@ -45,7 +47,7 @@ sub lint {
                                report($where, $target, "no such source");
                                next;
                        }
-                       $real_section = grab_section($page);
+                       my $real_section = grab_section($page);
                        if ($real_section != $section) {
                                report($where, $target,
                                        "wrong section (should be $real_section)");