Fixed an issue in Git snapshots.

This commit is contained in:
Elijah Perrault committed 2011-03-06 20:46:43 -07:00
1 parent 9f3a8624c9
commit 68c4ca7b4a
1 file changed
+5 -3
+5 -3
View File
@@ -22,9 +22,11 @@ our $Bin = $Bin; ## no critic qw(NamingConventions::Capitalization Variables::Pr
BEGIN {
unshift @INC, "$Bin/../lib";
open my $gitfh, '<', "$Bin/../.git/refs/heads/indev";
our $VERGITREV = substr readline $gitfh, 0, 7;
close $gitfh;
if (-d "$Bin/../.git") {
open my $gitfh, '<', "$Bin/../.git/refs/heads/indev";
our $VERGITREV = substr readline $gitfh, 0, 7;
close $gitfh;
}
# Set version information.
use constant { ## no critic qw(ValuesAndExpressions::ProhibitConstantPragma)