From 82df10610b6ca545db9c9300361cc73a3b5d5e52 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Mon, 20 Jun 2016 08:29:19 +0200
Subject: [PATCH] pdist: correct comment pointing to master source

---
 pdist/pdist | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/pdist/pdist b/pdist/pdist
index 0531382..d39104d 100755
--- a/pdist/pdist
+++ b/pdist/pdist
@@ -1,6 +1,6 @@
-#! /usr/local/bin/perl -w
+#! /usr/bin/perl
 
-# $Header: /project/admin/pdist/pdist,v 1.59 2014/03/31 10:09:30 root Exp root $
+# https://github.molgen.mpg.de/mariux64/mxtools
 
 #--------------------------------------------------------------
 # My::Escaper helper class
@@ -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)) ;
@@ -150,6 +152,7 @@ sub lstat
 #--------------------------------------------------------------
 package main;
 use strict;
+use warnings;
 
 #
 # Emergency search path for perl modules at end of @INC