diff --git a/scripts/extract-unit-protos b/scripts/extract-unit-protos
index 48fa1e8791..80c2831ede 100755
--- a/scripts/extract-unit-protos
+++ b/scripts/extract-unit-protos
@@ -23,6 +23,12 @@
 #
 ###########################################################################
 
+use strict;
+use warnings;
+
+my @proto;
+my %inc;
+
 sub scanfile {
     my ($file) = @_;
     open(F, "<$file") || die "$file failed";