Changeset 2905 for box/trunk/infrastructure
- Timestamp:
- 08/04/2011 21:40:33 (14 months ago)
- File:
-
- 1 edited
-
box/trunk/infrastructure/msvc/getversion.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
box/trunk/infrastructure/msvc/getversion.pl
r1078 r2905 12 12 require "$basedir\\infrastructure\\BoxPlatform.pm.in"; 13 13 14 open VERSIONFILE, "> $basedir/lib/common/BoxVersion.h" 14 my $newver = "#define BOX_VERSION \"$BoxPlatform::product_version\"\n"; 15 16 open VERSIONFILE, "< $basedir/lib/common/BoxVersion.h" 15 17 or die "BoxVersion.h: $!"; 16 print VERSIONFILE "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";18 my $oldver = <VERSIONFILE>; 17 19 close VERSIONFILE; 18 20 21 if ($newver ne $oldver) 22 { 23 open VERSIONFILE, "> $basedir/lib/common/BoxVersion.h" 24 or die "BoxVersion.h: $!"; 25 print VERSIONFILE "#define BOX_VERSION \"$BoxPlatform::product_version\"\n"; 26 close VERSIONFILE; 27 } 28 19 29 exit 0;
Note: See TracChangeset
for help on using the changeset viewer.
