Print "SVN Rev unknown" in case the svn command was not found. svn path=/trunk/; revision=23739
This commit is contained in:
parent
8686381c19
commit
6f343baf07
|
@ -1,6 +1,6 @@
|
|||
#!/usr/bin/perl -w
|
||||
#
|
||||
# Copyright 2004 Jörg Mayer (see AUTHORS file)
|
||||
# Copyright 2004 Jörg Mayer (see AUTHORS file)
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
@ -119,6 +119,10 @@ sub read_svn_info {
|
|||
if ($line =~ /Last Changed Rev: (\d+)/) {
|
||||
$revision = $1;
|
||||
}
|
||||
if ($line =~ /^$/) {
|
||||
$last = "unknown";
|
||||
$revision = "unknown";
|
||||
}
|
||||
} else {
|
||||
# The entries schema is flat, so we can use regexes to parse its contents.
|
||||
while ($line = <ENTRIES>) {
|
||||
|
|
Loading…
Reference in New Issue