Code

Perly Git: arrange include path settings properly.
authorJunio C Hamano <junkio@cox.net>
Wed, 28 Jun 2006 10:17:07 +0000 (03:17 -0700)
committerJunio C Hamano <junkio@cox.net>
Mon, 3 Jul 2006 00:14:43 +0000 (17:14 -0700)
Before "use Git" takes effect, we would need to set up the Perl
library path to point at the local installation location.  So
that instruction needs to be in BEGIN{} block.

Pointed out and fixed by Pavel Roskin.

Signed-off-by: Junio C Hamano <junkio@cox.net>
git-fmt-merge-msg.perl
git-mv.perl

index e8fad02e757506e423b05b4a37fe3df8dba87ab2..1b23fa150b7dd8af9850af71382e78c1a21c7321 100755 (executable)
@@ -5,7 +5,7 @@
 # Read .git/FETCH_HEAD and make a human readable merge message
 # by grouping branches and tags together to form a single line.
 
-unshift @INC, '@@INSTLIBDIR@@';
+BEGIN { unshift @INC, '@@INSTLIBDIR@@'; }
 use strict;
 use Git;
 use Error qw(:try);
index f1bde4307ba719ce0e78ad360aa2ce1f4b7c6958..a60489617e517d02b824f14815c2be61209df6b6 100755 (executable)
@@ -6,7 +6,7 @@
 # This file is licensed under the GPL v2, or a later version
 # at the discretion of Linus Torvalds.
 
-
+BEGIN { unshift @INC, '@@INSTLIBDIR@@'; }
 use warnings;
 use strict;
 use Getopt::Std;