Changeset 1651

Show
Ignore:
Timestamp:
02/04/05 21:03:25 (4 years ago)
Author:
morris
Message:

Get revision from svn info

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • WiredClient/trunk/version.pl

    r1622 r1651  
    33use strict; 
    44 
    5 my $REV = '$Rev$'; 
     5my $REV = `svn info | grep "^Revision:"`; 
    66my $INFO = "$ENV{BUILT_PRODUCTS_DIR}/$ENV{WRAPPER_NAME}/Contents/Info.plist"; 
    77 
    88my $version = $REV; 
    9 $version =~ s/\$Rev: (\d+) \$/$1/; 
     9$version =~ s/^Revision: (\d+)\n/$1/; 
    1010die "$0: No Subversion revision found" unless $version; 
    1111my $prevversion = $version - 1;