Description: require full path (not bare file) for perl scripts
 It is considered a security flaw to rely on current workingdir,
 and recent versions of perl therefore need ./ prefix
 to explicitly state when ok to load from same dir
Author: Jonas Smedegaard <dr@jones.dk>
Last-Update: 2020-09-07
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/migrate_aliases.pl
+++ b/migrate_aliases.pl
@@ -36,7 +36,7 @@
 # thanks to Dave McPike
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_aliases.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_automount.pl
+++ b/migrate_automount.pl
@@ -33,7 +33,7 @@
 # services migration tool
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
  
 $PROGRAM = "migrate_automount.pl"; 
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_base.pl
+++ b/migrate_base.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_base.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_fstab.pl
+++ b/migrate_fstab.pl
@@ -37,7 +37,7 @@
 # They are used by MacOS X Server, however.
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_fstab.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_group.pl
+++ b/migrate_group.pl
@@ -37,7 +37,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_group.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_hosts.pl
+++ b/migrate_hosts.pl
@@ -37,7 +37,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_hosts.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_netgroup.pl
+++ b/migrate_netgroup.pl
@@ -36,7 +36,7 @@
 # line continuation support by Bob Apthorpe
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_netgroup.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_netgroup_byhost.pl
+++ b/migrate_netgroup_byhost.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_netgroup_byhost.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_netgroup_byuser.pl
+++ b/migrate_netgroup_byuser.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_netgroup_byuser.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_networks.pl
+++ b/migrate_networks.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_networks.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_passwd.pl
+++ b/migrate_passwd.pl
@@ -39,7 +39,7 @@
 #
 # UTF8 support by Jonas Smedegaard <dr@jones.dk>.
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_passwd.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_profile.pl
+++ b/migrate_profile.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_profile.pl";
 
--- a/migrate_protocols.pl
+++ b/migrate_protocols.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_protocols.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_rpc.pl
+++ b/migrate_rpc.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_rpc.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_services.pl
+++ b/migrate_services.pl
@@ -38,7 +38,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_services.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
--- a/migrate_slapd_conf.pl
+++ b/migrate_slapd_conf.pl
@@ -36,7 +36,7 @@
 #
 #
 
-require 'migrate_common.ph';
+require './migrate_common.ph';
 
 $PROGRAM = "migrate_slapd_conf.pl";