From edd465cfddeee2ba815e1ff577f86400752b277b Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Mon, 20 Jun 2016 09:37:13 +0200
Subject: [PATCH] pmirror: fix shebang

---
 pmirror/pmirror | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/pmirror/pmirror b/pmirror/pmirror
index 7cb322e..7956472 100755
--- a/pmirror/pmirror
+++ b/pmirror/pmirror
@@ -1,4 +1,4 @@
-#! /usr/local/bin/perl -w
+#! /usr/bin/perl
 
 # https://github.molgen.mpg.de/mariux64/mxtools
 
@@ -8,6 +8,7 @@
 
 package My::Escaper;
 use strict;
+use warnings;
 
 our @ISA=qw(Exporter);
 our @EXPORT=qw(fn_escape fn_unescape);
@@ -32,6 +33,7 @@ sub fn_unescape
 #--------------------------------------------------------------
 package My::FileInfo;
 use strict;
+use warnings;
 import My::Escaper;
 
 use Class::Struct (map {$_=>'$'} qw(name dev ino type perm nlink uid gid rdev size mtime target)) ;
@@ -151,6 +153,7 @@ sub lstat
 #--------------------------------------------------------------
 package main;
 use strict;
+use warnings;
 
 use File::FnMatch ':fnmatch';
 use File::Find;