Print "SVN Rev unknown" in case the svn command was not found.

svn path=/trunk/; revision=23739
This commit is contained in:
Jörg Mayer 2007-12-04 03:48:05 +00:00
parent 8686381c19
commit 6f343baf07
1 changed files with 5 additions and 1 deletions

View File

@ -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>) {