[Box Backup-dev] COMMIT r599 - box/chris/general/infrastructure

[boxbackup-dev@fluffy.co.uk]

Author: chris
Date: 2006-05-28 11:35:52 +0000 (Sun, 28 May 2006)
New Revision: 599

Modified:
   box/chris/general/infrastructure/BoxPlatform.pm.in
Log:
* BoxPlatform.pm.in
- Properly find VERSION.txt in parent directories (makeprotocol.pl)


Modified: box/chris/general/infrastructure/BoxPlatform.pm.in
===================================================================
--- box/chris/general/infrastructure/BoxPlatform.pm.in	2006-05-28 01:18:13 UTC (rev 598)
+++ box/chris/general/infrastructure/BoxPlatform.pm.in	2006-05-28 11:35:52 UTC (rev 599)
@@ -32,7 +32,15 @@
 		or $target_os eq "winnt";
 
 	# get version
-	open VERSION,"VERSION.txt" or die "VERSION.txt: $!";
+	if (! -r "VERSION.txt" and -r "../../VERSION.txt")
+	{
+		open VERSION,"../../VERSION.txt" or die "../../VERSION.txt: $!";
+	}
+	else
+	{
+		open VERSION,"VERSION.txt" or die "VERSION.txt: $!";
+	}
+
 	$product_version = <VERSION>;
 	chomp $product_version;
 	$product_name = <VERSION>;