@@ -1,4 +1,5 @@ #!/usr/bin/perl +$|=1; # Flush writes as soon as print finishes. use strict; use warnings; @@ -11,22 +12,29 @@ my $cwd = cwd; my $in_git = 0; my $scriptpath = dirname($0); my $outfile = $ARGV[0]; +# NOTE: ToFix: This breaks if the full path to the file contains a space character. my $releasever; -$releasever = `cat $scriptpath/release_ver`; +my $Win32 = 0; +$Win32 = 1 if ($^O =~ /MSWin/i); +open RELEASEVER, "$scriptpath/release_ver" || die ("Can't open release_ver:$!"); +$releasever = <RELEASEVER>; +close RELEASEVER; mkdir dirname($outfile); print "Is this project under Git? "; if (-d "$scriptpath/../.git" ) { print "Yes\n"; print "Is Git installed? "; - if ( `which git` ) { + if ( !$Win32 && `which git` ) { print "Yes\n"; $in_git = 1; } else { - print "No\n"; + print "No"; + print " - can't check on Win32." if ($Win32); + print "\n"; $in_git = 0; } } else { tools/gen_buildnum_h.pl b47dd24f37828376ad948630e629a883b6afd37c Dan Linder dan@linder.org http://github.com/tycho/crisscross/commit/050ccffc41c55f33f0ff1c3643d4d61737369c2a 050ccffc41c55f33f0ff1c3643d4d61737369c2a 2009-10-22T13:31:27-07:00 2009-10-22T13:31:27-07:00 Remove dependancy on external 'cat' command to preference Perl code. c4cfa6d09a2f6702e44331d6dc1ddcc8cfc44082 Dan Linder dan@linder.org