my $data = `svn info 2>/dev/null`;
if ($data eq "")
{
- $data = `git-svn info 2>/dev/null`;
+ $data = `git describe --tags 2>/dev/null`;
if ($data eq "")
{
$no_svn = 1;
- my $rev = "0";
- return $rev;
+ return '0';
}
+ chomp $data; # remove \n
+ return $data;
}
$data =~ /Revision: (\d+)/;
my $rev = $1;
sub getmodules
{
+ my ($silent) = @_;
+
my $i = 0;
- print "Detecting modules ";
+
+ if (!$silent)
+ {
+ print "Detecting modules ";
+ }
+
opendir(DIRHANDLE, "src/modules") or die("WTF, missing src/modules!");
foreach my $name (sort readdir(DIRHANDLE))
{
{
my $mod = $1;
$main::modlist[$i++] = $mod;
- print ".";
+ if (!$silent)
+ {
+ print ".";
+ }
}
}
closedir(DIRHANDLE);
- print "\nOk, $i modules.\n";
+
+ if (!$silent)
+ {
+ print "\nOk, $i modules.\n";
+ }
}
sub promptnumeric($$)