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

[Robert May]

This is an automatically generated mail from the syncmail system.  Do not reply 
directly to this email.  Further discussion should take place on the hackers 
list: [EMAIL PROTECTED]

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);


-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
_______________________________________________
Perl-win32-gui-cvscommit mailing list
Perl-win32-gui-cvscommit@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit
http://perl-win32-gui.sourceforge.net/