[Perl-win32-gui-cvscommit] Win32-GUI/build_tools updateRC.pl, 1.1, 1.2

[Robert M. <rob...@us...>]

Update of /cvsroot/perl-win32-gui/Win32-GUI/build_tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29107/build_tools

Modified Files:
	updateRC.pl 
Log Message:
Build fixes for Cygwin from Reini Urban

Index: updateRC.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/build_tools/updateRC.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** updateRC.pl	3 Aug 2005 21:45:58 -0000	1.1
--- updateRC.pl	30 Jul 2007 22:04:49 -0000	1.2
***************
*** 19,23 ****
  use BuildTools;
  
! my $rcfile = "GUI.rc";
  
  my $version = BuildTools::macro_subst('__W32G_VERSION__');
--- 19,25 ----
  use BuildTools;
  
! $|++; #AUTOFLUSH
! 
! my $rcfile = 'GUI.rc';
  
  my $version = BuildTools::macro_subst('__W32G_VERSION__');
***************
*** 25,36 ****
  
  my $changed = 0;
! my $outtext = '';
  
  # Parse $version into 4 parts:
! my($maj, $min, $rc, $extra) = split(/\.|_/, $version . ".00.00.00");
  
! print "Checking RC file ... ";
  
! open(my $in, "<$rcfile") or die "Filaed to open $rcfile for reading: $!";
  while (my $inline = <$in>) {
  	my $outline = $inline;
--- 27,38 ----
  
  my $changed = 0;
! my $outtext = q();
  
  # Parse $version into 4 parts:
! my($maj, $min, $rc, $extra) = split(/\.|_/, $version . '.00.00.00');
  
! print 'Checking RC file ... ';
  
! open(my $in, '<', $rcfile) or die "Failed to open $rcfile for reading: $!";
  while (my $inline = <$in>) {
  	my $outline = $inline;
***************
*** 60,69 ****
  close($in);
  
! # write out the new rcfile
! open(my $out, ">$rcfile") or die "Failed to open $rcfile for writing";
! print $out $outtext;
! close($out);
  
! print $changed ? "updated.\n" : "no change.\n";
  
  exit(0);
--- 62,77 ----
  close($in);
  
! # write out the new rcfile, if it changed
! if($changed) {
!     my $out;
!     if(!open($out, '>', $rcfile)) {
!         chmod 0644, $rcfile;
!         open($out, '>', $rcfile) or die "Failed to open $rcfile for writing";
!     }
!     print $out $outtext;
!     close($out);
! }
  
! print $changed ? 'updated' : 'no change', ".\n";
  
  exit(0);