We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 1b596ec commit c1e81f1Copy full SHA for c1e81f1
modules/Version.pm
@@ -11,6 +11,7 @@ package Version;
11
# ************************************************************
12
13
use strict;
14
+use File::Spec;
15
16
17
# Data Section
@@ -38,7 +39,8 @@ sub get {
38
39
my $cwd = Cwd::getcwd();
40
if (chdir(::getBasePath())) {
41
## Get the git revision for the final part of the version string.
- my $r = _readVersion('git rev-parse --short HEAD |');
42
+ my $nul = File::Spec->devnull();
43
+ my $r = _readVersion("git rev-parse --short HEAD 2> $nul |");
44
if (defined $r) {
45
## Store the version for later use, in the event that the git
46
## revision isn't available in the future.
0 commit comments