Changeset 27666 for other-projects/nightly-tasks/diffcol

Timestamp:

2013-06-19T21:37:26+12:00 (11 years ago)

Author:

kjdon

Message:

Using perl rather than bash to test if file is binary, so that this test does not become unrecognised on windows.

File:

• other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl (modified) (1 diff)

other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl

@@ -644 +644 @@
             }
 
-            $result=`file -b $strModel`;
+            #$result=`file -b $strModel`; # linux specific test for binary file
+            $result = (-B $strModel) ? 1 : 0; # perl test for binary file, see http://perldoc.perl.org/functions/-X.html
             if ( "$result" =~  "data" ) {
                      VobPrint( "These binary files differ", $intLevel );