Strip redundant Emacs mode markers from Perl scripts.

Users should arrange to have an `intepreter-mode-alist' entry for
`@PERL@'.

diff --git a/bkp.in b/bkp.in
index 050319b791386bc3ea44a9846cec30eae95999a3..842c372f2165549729caaa8dd5de67c6649e368c 100755 (executable)
--- a/bkp.in
+++ b/bkp.in
@@ -1,5 +1,4 @@
 #! @PERL@
-### -*-perl-*-
 ###
 ### Run backups as instructed by a configuration file
 ###

diff --git a/lvm-rmsnap.in b/lvm-rmsnap.in
index 0a4616608db7311cdb162534d86926ab15f6b941..12b87c701d71963cfd23b6422d89b479e6d4eaaa 100755 (executable)
--- a/lvm-rmsnap.in
+++ b/lvm-rmsnap.in
@@ -1,5 +1,4 @@
 #! @PERL@
-### -*-perl-*-
 ###
 ### Remove an LVM snapshot, without falling foul of LVM bugs
 ###

diff --git a/snap.in b/snap.in
index 34e0be5a0c265771dbb1d0965ee03e7af581ea90..0a9b5719494204428859ce21bc489ad0d9908d2a 100755 (executable)
--- a/snap.in
+++ b/snap.in
@@ -1,5 +1,4 @@
 #! @PERL@
-### -*-perl-*-
 ###
 ### Create and remove snapshots of block devices
 ###

diff --git a/snap.rfreezefs.in b/snap.rfreezefs.in
index 085ae9346eeb5dc2fed50d4f561035f4ccd951ba..a6eca57e02a647ec0f9e79f1429c0d69f4f5e07f 100755 (executable)
--- a/snap.rfreezefs.in
+++ b/snap.rfreezefs.in
@@ -1,5 +1,4 @@
 #! @PERL@
-### -*-perl-*-
 ###
 ### Synchronize snapshot with remotely mounted filesystem
 ###