From 7d1cb2c537e76a8408355a62f38016ed3a8c2085 Mon Sep 17 00:00:00 2001 From: Guillaume Rousse Date: Tue, 29 Jan 2008 21:20:50 +0000 Subject: use strictures and warnings in all perl scripts --- clean_files | 4 +++- compress_files | 2 ++ strip_files | 2 ++ translate_menu | 5 ++++- 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); -- cgit v1.2.1