X-Git-Url: http://git.openwrt.org/?p=openwrt%2Fopenwrt.git;a=blobdiff_plain;f=scripts%2Fcleanfile;h=64507c488f0aed8d33d5c013d2e07257b3a5a69b;hp=cefd29e5229880ce1dfb5b6ef64be1393b34380a;hb=ffdce856e0c05616a033470f358b12ab0db8fde0;hpb=957c2576cc66049a14a549b3652cb2fd54062dd7

diff --git a/scripts/cleanfile b/scripts/cleanfile
index cefd29e522..64507c488f 100755
--- a/scripts/cleanfile
+++ b/scripts/cleanfile
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 # Clean a text file -- or directory of text files -- of stealth whitespace.
 # WARNING: this can be a highly destructive operation.  Use with caution.
@@ -6,6 +6,7 @@
 
 use bytes;
 use File::Basename;
+use warnings;
 
 # Default options
 $max_width = 79;