[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-Constants Constants.PL, 1.3, 1.4 Constants.xs, 1.1, 1.2 Makefile.PL, 1.1, 1.2

[Robert May]

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

Modified Files:
        Constants.PL Constants.xs Makefile.PL 
Log Message:
Fix cygwin and mingw builds

Index: Constants.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Constants.PL        1 Jun 2006 19:46:12 -0000       1.3
--- Constants.PL        11 Jun 2006 21:00:15 -0000      1.4
***************
*** 42,45 ****
--- 42,46 ----
  my %C;
  
+ binmode(DATA, ':crlf'); # ensure we do dos-unix line ending conversions, even 
on cygwin
  while(<DATA>) {
        s/#.*$//;               # remove comments

Index: Constants.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.xs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Constants.xs        13 May 2006 15:39:30 -0000      1.1
--- Constants.xs        11 Jun 2006 21:00:15 -0000      1.2
***************
*** 50,54 ****
          if(*key == *str && !strncmp(key+1, str+1, len-1) && str[len] == '\0') 
{
              if(const_table[hash].flags & F_UV) {
!                 XSRETURN_UV((UV)const_table[hash].value);
              }
              else {
--- 50,56 ----
          if(*key == *str && !strncmp(key+1, str+1, len-1) && str[len] == '\0') 
{
              if(const_table[hash].flags & F_UV) {
!                 /* Care with the casting, as UV's are (currently)
!                  * unsigned long long on cygwin */
!                 XSRETURN_UV((UV)((ULONG)const_table[hash].value));
              }
              else {

Index: Makefile.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Makefile.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Makefile.PL 13 May 2006 15:39:30 -0000      1.1
--- Makefile.PL 11 Jun 2006 21:00:15 -0000      1.2
***************
*** 1,5 ****
  #!perl -w
  use strict;
! use warnings;
  
  # Makefile.PL for Win32::GUI::Constants
--- 1,5 ----
  #!perl -w
  use strict;
! #use warnings;
  
  # Makefile.PL for Win32::GUI::Constants
***************
*** 39,42 ****
--- 39,48 ----
  package MY;
  
+ sub special_targets {
+     my $inherited = shift->SUPER::special_targets(@_);
+     $inherited =~ s/^(.SUFFIXES.*)$/$1 .rc .res/m;
+     return $inherited;
+ }
+ 
  # Add rule for .rc to .res conversion
  # Add rules to install demo scripts
***************
*** 68,72 ****
  
  phash.def :: constants.src
!       hash\perfect.exe < constants.src
  
  __POSTAMBLE
--- 74,78 ----
  
  phash.def :: constants.src
!       hash$(DIRFILESEP)perfect.exe < constants.src
  
  __POSTAMBLE