A quick fix for some perl patch-helper scripts.

diff --git a/packaging/branch-from-patch b/packaging/branch-from-patch
index 469f3d60551fdfd40fb1523c5e3badaf2c1a85a2..a66cb16f87630dc5fed70309ab8941f6432b2954 100755 (executable)
--- 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 4839716d713fea661ae8865e86a1a81521e432a0..e279c6bc614e9f41400e95f6e465caad97d9fcb1 100755 (executable)
--- 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);