use strictures and warnings in all perl scripts

4 files changed, 11 insertions, 2 deletions

diff --git a/clean_files b/clean_files
index 9955454..7e5d02d 100755
--- a/clean_files
+++ b/clean_files
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #---------------------------------------------------------------
 # Project         : Linux-Mandrake
 # Module          : spec-helper
@@ -10,6 +10,8 @@
 #---------------------------------------------------------------
 
 ################################################################################
+use strict;
+use warnings;
 $ENV{DONT_CLEANUP} and exit(0);
 
 my $RPM_BUILD_ROOT = $ENV{RPM_BUILD_ROOT};
diff --git a/compress_files b/compress_files
index 80c5550..dffbc63 100755
--- a/compress_files
+++ b/compress_files
@@ -9,6 +9,8 @@
 # Purpose         : compress man and info pages.
 #---------------------------------------------------------------
 
+use strict;
+use warnings;
 use Cwd;
 use File::Find;
 
diff --git a/strip_files b/strip_files
index 53d87ee..b994362 100755
--- a/strip_files
+++ b/strip_files
@@ -9,6 +9,8 @@
 # Purpose         : Strip files.
 #---------------------------------------------------------------
 
+use strict;
+use warnings;
 use File::Find;
 
 ################################################################################
diff --git a/translate_menu b/translate_menu
index 2d661c6..2fc3f88 100755
--- a/translate_menu
+++ b/translate_menu
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #---------------------------------------------------------------
 # Project         : Mandrake Linux
 # Module          : spec-helper
@@ -9,6 +9,9 @@
 # Purpose         : change the menu sections
 #---------------------------------------------------------------
 
+use strict;
+use warnings;
+
 my $menudir = `rpm --eval %_menudir`;
 chomp($menudir);