perl-win32-gui-cvscommit

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

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

Modified Files:
	Constants.PL 
Log Message:
Fix build under Perl 5.6

Index: Constants.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Constants.PL	15 Oct 2006 12:09:27 -0000	1.7
--- Constants.PL	15 Oct 2006 12:16:22 -0000	1.8
***************
*** 42,50 ****
  my %C;
  
- binmode(DATA, ':crlf'); # ensure we do dos-unix line ending conversions, even on cygwin
  while(<DATA>) {
  	s/#.*$//;     		# remove comments
  	next if /^\s*$/;	# ignore blank lines
! 	chomp;
  	my ($c, $v) = split;
  	$v = oct($v) if $v =~ /^0/;
--- 42,51 ----
  my %C;
  
  while(<DATA>) {
  	s/#.*$//;     		# remove comments
  	next if /^\s*$/;	# ignore blank lines
!     #chomp;
!     s/\r?\n$//;         # throw away line endings - chomp on cygwin only removes '\n'
!                         # done this way in case dos2unix didn't get run on this file
  	my ($c, $v) = split;
  	$v = oct($v) if $v =~ /^0/;