osmith
/
wireshark
forked from osmocom/wireshark
1
0
Fork 0
Code Pull Requests Releases Wiki Activity

If we can't find the "svn" executable in the current path, look in 

"c:/cygwin/lib/subversion/bin/", which is the current default location
for Subversion 1.1.1 under Cygwin.  If we still can't find "svn", simply
return instead of exiting.

svn path=/trunk/; revision=12856
This commit is contained in:
Gerald Combs 2004-12-29 15:54:55 +00:00
parent d9be4670a7
commit a1f2fba1ad
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
make-version.pl
View File

@ -75,8 +75,22 @@ sub read_svn_info {
my $line;
my $version_format = $version_pref{"format"};
my $package_format = $version_pref{"pkg_format"};
# If any other odd paths pop up, put them here.
my @svn_paths = ("", "c:/cygwin/lib/subversion/bin/");
my $svn_cmd;
my $svn_pid;
open(SVNINFO, "svn info |") || die("Unable to get SVN info!");
foreach $svn_cmd (@svn_paths) {
$svn_cmd .= "svn info";
if ($svn_pid = open(SVNINFO, $svn_cmd . " |")) {
print ("Fetching version with command \"$svn_cmd\".\n");
last;
}
}
if (! defined($svn_pid)) {
print ("Unable to get SVN info.\n");
return;
}
while ($line = <SVNINFO>) {
if ($line =~ /^Last Changed Date: (\d{4})-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/) {
$last = timegm($6, $5, $4, $3, $2 - 1, $1);