From e62a8c4dd2a9be297f2f4961c9c643e68b8b3bce Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Thu, 1 Mar 2012 18:59:39 +0100
Subject: warning pragma

---
 videomv.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'videomv.pl')

diff --git a/videomv.pl b/videomv.pl
index a7f9877..2bc3313 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -CAL
+#!/usr/bin/perl -CAL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -9,6 +9,9 @@
 
 $VERSION = "0.2, 10 August 2011";
 
+use warnings;
+use strict;
+
 use Getopt::Long qw/:config posix_default no_ignore_case gnu_compat
                             bundling auto_version auto_help/;
 use Pod::Usage;
@@ -18,7 +21,6 @@ use File::Spec::Functions qw /catfile catdir splitdir updir/;
 use File::Copy;
 use Cwd qw /realpath/;
 use Env qw /HOME/;
-use strict;
 
 ################################################################################
 
-- 
cgit v1.2.3