1*4882a593SmuzhiyunFrom cdc7c278212ae836eecb4cc9d42c29443cc128a0 Mon Sep 17 00:00:00 2001 2*4882a593SmuzhiyunFrom: Robert Yang <liezhi.yang@windriver.com> 3*4882a593SmuzhiyunDate: Thu, 6 Apr 2017 02:24:28 -0700 4*4882a593SmuzhiyunSubject: [PATCH] mc: replace "perl -w" with "use warnings" 5*4882a593Smuzhiyun 6*4882a593SmuzhiyunThe shebang's max length is usually 128 as defined in 7*4882a593Smuzhiyun/usr/include/linux/binfmts.h: 8*4882a593Smuzhiyun #define BINPRM_BUF_SIZE 128 9*4882a593Smuzhiyun 10*4882a593SmuzhiyunThere would be errors when @PERL@ is longer than 128, use 11*4882a593Smuzhiyun'/usr/bin/env perl' can fix the problem, but '/usr/bin/env perl -w' 12*4882a593Smuzhiyundoesn't work: 13*4882a593Smuzhiyun 14*4882a593Smuzhiyun/usr/bin/env: perl -w: No such file or directory 15*4882a593Smuzhiyun 16*4882a593SmuzhiyunSo replace "perl -w" with "use warnings" to make it work. 17*4882a593Smuzhiyun 18*4882a593SmuzhiyunThe man2hlp.in already has "use warnings;", so just remove '-w' is OK. 19*4882a593Smuzhiyun 20*4882a593SmuzhiyunUpstream-Status: Pending 21*4882a593Smuzhiyun 22*4882a593SmuzhiyunSigned-off-by: Robert Yang <liezhi.yang@windriver.com> 23*4882a593Smuzhiyun--- 24*4882a593Smuzhiyun src/man2hlp/man2hlp.in | 2 +- 25*4882a593Smuzhiyun src/vfs/extfs/helpers/a+.in | 4 +++- 26*4882a593Smuzhiyun src/vfs/extfs/helpers/mailfs.in | 3 ++- 27*4882a593Smuzhiyun src/vfs/extfs/helpers/patchfs.in | 3 ++- 28*4882a593Smuzhiyun src/vfs/extfs/helpers/ulib.in | 4 +++- 29*4882a593Smuzhiyun src/vfs/extfs/helpers/uzip.in | 3 ++- 30*4882a593Smuzhiyun 6 files changed, 13 insertions(+), 6 deletions(-) 31*4882a593Smuzhiyun 32*4882a593Smuzhiyundiff --git a/src/man2hlp/man2hlp.in b/src/man2hlp/man2hlp.in 33*4882a593Smuzhiyunindex f095830..558a674 100644 34*4882a593Smuzhiyun--- a/src/man2hlp/man2hlp.in 35*4882a593Smuzhiyun+++ b/src/man2hlp/man2hlp.in 36*4882a593Smuzhiyun@@ -1,4 +1,4 @@ 37*4882a593Smuzhiyun-#! @PERL@ -w 38*4882a593Smuzhiyun+#! @PERL@ 39*4882a593Smuzhiyun # 40*4882a593Smuzhiyun # Man page to help file converter 41*4882a593Smuzhiyun # Copyright (C) 1994, 1995, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 42*4882a593Smuzhiyundiff --git a/src/vfs/extfs/helpers/a+.in b/src/vfs/extfs/helpers/a+.in 43*4882a593Smuzhiyunindex 579441c..fe446f4 100644 44*4882a593Smuzhiyun--- a/src/vfs/extfs/helpers/a+.in 45*4882a593Smuzhiyun+++ b/src/vfs/extfs/helpers/a+.in 46*4882a593Smuzhiyun@@ -1,4 +1,4 @@ 47*4882a593Smuzhiyun-#! @PERL@ -w 48*4882a593Smuzhiyun+#! @PERL@ 49*4882a593Smuzhiyun # 50*4882a593Smuzhiyun # External filesystem for mc, using mtools 51*4882a593Smuzhiyun # Written Ludek Brukner <lubr@barco.cz>, 1997 52*4882a593Smuzhiyun@@ -9,6 +9,8 @@ 53*4882a593Smuzhiyun 54*4882a593Smuzhiyun # These mtools components must be in PATH for this to work 55*4882a593Smuzhiyun 56*4882a593Smuzhiyun+use warnings; 57*4882a593Smuzhiyun+ 58*4882a593Smuzhiyun sub quote { 59*4882a593Smuzhiyun $_ = shift(@_); 60*4882a593Smuzhiyun s/([^\w\/.+-])/\\$1/g; 61*4882a593Smuzhiyundiff --git a/src/vfs/extfs/helpers/mailfs.in b/src/vfs/extfs/helpers/mailfs.in 62*4882a593Smuzhiyunindex e9455be..059f41f 100644 63*4882a593Smuzhiyun--- a/src/vfs/extfs/helpers/mailfs.in 64*4882a593Smuzhiyun+++ b/src/vfs/extfs/helpers/mailfs.in 65*4882a593Smuzhiyun@@ -1,6 +1,7 @@ 66*4882a593Smuzhiyun-#! @PERL@ -w 67*4882a593Smuzhiyun+#! @PERL@ 68*4882a593Smuzhiyun 69*4882a593Smuzhiyun use bytes; 70*4882a593Smuzhiyun+use warnings; 71*4882a593Smuzhiyun 72*4882a593Smuzhiyun # MC extfs for (possibly compressed) Berkeley style mailbox files 73*4882a593Smuzhiyun # Peter Daum <gator@cs.tu-berlin.de> (Jan 1998, mc-4.1.24) 74*4882a593Smuzhiyundiff --git a/src/vfs/extfs/helpers/patchfs.in b/src/vfs/extfs/helpers/patchfs.in 75*4882a593Smuzhiyunindex ef407de..3ad4b53 100644 76*4882a593Smuzhiyun--- a/src/vfs/extfs/helpers/patchfs.in 77*4882a593Smuzhiyun+++ b/src/vfs/extfs/helpers/patchfs.in 78*4882a593Smuzhiyun@@ -1,4 +1,4 @@ 79*4882a593Smuzhiyun-#! @PERL@ -w 80*4882a593Smuzhiyun+#! @PERL@ 81*4882a593Smuzhiyun # 82*4882a593Smuzhiyun # Written by Adam Byrtek <alpha@debian.org>, 2002 83*4882a593Smuzhiyun # Rewritten by David Sterba <dave@jikos.cz>, 2009 84*4882a593Smuzhiyun@@ -9,6 +9,7 @@ 85*4882a593Smuzhiyun 86*4882a593Smuzhiyun use bytes; 87*4882a593Smuzhiyun use strict; 88*4882a593Smuzhiyun+use warnings; 89*4882a593Smuzhiyun use POSIX; 90*4882a593Smuzhiyun use File::Temp 'tempfile'; 91*4882a593Smuzhiyun 92*4882a593Smuzhiyundiff --git a/src/vfs/extfs/helpers/ulib.in b/src/vfs/extfs/helpers/ulib.in 93*4882a593Smuzhiyunindex 418611f..82c7ccf 100644 94*4882a593Smuzhiyun--- a/src/vfs/extfs/helpers/ulib.in 95*4882a593Smuzhiyun+++ b/src/vfs/extfs/helpers/ulib.in 96*4882a593Smuzhiyun@@ -1,9 +1,11 @@ 97*4882a593Smuzhiyun-#! @PERL@ -w 98*4882a593Smuzhiyun+#! @PERL@ 99*4882a593Smuzhiyun # 100*4882a593Smuzhiyun # VFS to manage the gputils archives. 101*4882a593Smuzhiyun # Written by Molnár Károly (proton7@freemail.hu) 2012 102*4882a593Smuzhiyun # 103*4882a593Smuzhiyun 104*4882a593Smuzhiyun+use warnings; 105*4882a593Smuzhiyun+ 106*4882a593Smuzhiyun my %month = ('jan' => '01', 'feb' => '02', 'mar' => '03', 107*4882a593Smuzhiyun 'apr' => '04', 'may' => '05', 'jun' => '06', 108*4882a593Smuzhiyun 'jul' => '07', 'aug' => '08', 'sep' => '09', 109*4882a593Smuzhiyundiff --git a/src/vfs/extfs/helpers/uzip.in b/src/vfs/extfs/helpers/uzip.in 110*4882a593Smuzhiyunindex b1c4f90..c8eb335 100644 111*4882a593Smuzhiyun--- a/src/vfs/extfs/helpers/uzip.in 112*4882a593Smuzhiyun+++ b/src/vfs/extfs/helpers/uzip.in 113*4882a593Smuzhiyun@@ -1,4 +1,4 @@ 114*4882a593Smuzhiyun-#! @PERL@ -w 115*4882a593Smuzhiyun+#! @PERL@ 116*4882a593Smuzhiyun # 117*4882a593Smuzhiyun # zip file archive Virtual File System for Midnight Commander 118*4882a593Smuzhiyun # Version 1.4.0 (2001-08-07). 119*4882a593Smuzhiyun@@ -9,6 +9,7 @@ 120*4882a593Smuzhiyun use POSIX; 121*4882a593Smuzhiyun use File::Basename; 122*4882a593Smuzhiyun use strict; 123*4882a593Smuzhiyun+use warnings; 124*4882a593Smuzhiyun 125*4882a593Smuzhiyun # 126*4882a593Smuzhiyun # Configuration options 127*4882a593Smuzhiyun-- 128*4882a593Smuzhiyun2.10.2 129*4882a593Smuzhiyun 130