[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-Constants Constants.PL, 1.7, 1.8

[Robert May]

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