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 { BEGIN {
unshift @INC, "$Bin/../lib"; unshift @INC, "$Bin/../lib";
open my $gitfh, '<', "$Bin/../.git/refs/heads/indev"; if (-d "$Bin/../.git") {
our $VERGITREV = substr readline $gitfh, 0, 7; open my $gitfh, '<', "$Bin/../.git/refs/heads/indev";
close $gitfh; our $VERGITREV = substr readline $gitfh, 0, 7;
close $gitfh;
}
# Set version information. # Set version information.
use constant { ## no critic qw(ValuesAndExpressions::ProhibitConstantPragma) use constant { ## no critic qw(ValuesAndExpressions::ProhibitConstantPragma)