From b63276e70fb82de7cf30cf29100acfb7650c4f43 Mon Sep 17 00:00:00 2001
From: Wayne Davison <wayned@samba.org>
Date: Sun, 5 Apr 2020 17:18:32 -0700
Subject: [PATCH] A quick fix for some perl patch-helper scripts.

---
 packaging/branch-from-patch | 2 ++
 packaging/patch-update      | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/packaging/branch-from-patch b/packaging/branch-from-patch
index 469f3d60..a66cb16f 100755
--- a/packaging/branch-from-patch
+++ b/packaging/branch-from-patch
@@ -13,6 +13,8 @@ use Getopt::Long;
 );
 &usage if $help_opt;
 
+push @INC, '.';
+
 require 'packaging/git-status.pl';
 check_git_state($master_branch, !$skip_branch_check, 1);
 
diff --git a/packaging/patch-update b/packaging/patch-update
index 4839716d..e279c6bc 100755
--- a/packaging/patch-update
+++ b/packaging/patch-update
@@ -33,6 +33,8 @@ if (defined $incl_generated_files) {
 die "No '$patches_dir' directory was found.\n" unless -d $patches_dir;
 die "No '.git' directory present in the current dir.\n" unless -d '.git';
 
+push @INC, '.';
+
 require 'packaging/git-status.pl';
 my $starting_branch = check_git_state($master_branch, !$skip_branch_check, 1);
 
-- 
2.47.3