[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.130, 1.131 GUI.pm, 1.65, 1.66

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

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

Modified Files:
	CHANGELOG GUI.pm 
Log Message:
Fixes for build/test under perl 5.10.0

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.65
retrieving revision 1.66
diff -C2 -d -r1.65 -r1.66
*** GUI.pm	16 Jul 2007 19:26:23 -0000	1.65
--- GUI.pm	13 Jan 2008 20:20:50 -0000	1.66
***************
*** 424,428 ****
     if(keys(%options) != 0) {
         require Carp;
!        Carp::carp "Animate: Unrecognised options ".join(", ", keys(%options));
         return undef
     }
--- 424,428 ----
     if(keys(%options) != 0) {
         require Carp;
!        Carp::carp("Animate: Unrecognised options ".join(", ", keys(%options)));
         return undef
     }
***************
*** 436,440 ****
     if($animation !~ /roll|slide|blend|center/) {
         require Carp;
!        Carp::carp "Animate: Unrecognised animation type: $animation";
         return undef;
     }
--- 436,440 ----
     if($animation !~ /roll|slide|blend|center/) {
         require Carp;
!        Carp::carp("Animate: Unrecognised animation type: $animation");
         return undef;
     }
***************
*** 442,446 ****
     if($direction !~ /lr|tlbr|tb|trbl|rl|brtl|bt|bltr/) {
         require Carp;
!        Carp::carp "Animate: Unrecognised direction: $direction";
         return undef unless $direction eq 'blrt'; # blrt allowed for deprection cycle
     }
--- 442,446 ----
     if($direction !~ /lr|tlbr|tb|trbl|rl|brtl|bt|bltr/) {
         require Carp;
!        Carp::carp("Animate: Unrecognised direction: $direction");
         return undef unless $direction eq 'blrt'; # blrt allowed for deprection cycle
     }

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.130
retrieving revision 1.131
diff -C2 -d -r1.130 -r1.131
*** CHANGELOG	13 Jan 2008 11:46:13 -0000	1.130
--- CHANGELOG	13 Jan 2008 20:20:50 -0000	1.131
***************
*** 6,9 ****
--- 6,13 ----
  Win32-GUI ChangeLog
  ===================
+ + [Reini Urban] : 13 January 2008 -  Fixes to build under Perl 5.10.0
+     - Changes to GUI.pm and Win32-GUI-Constants/Constants.pm to get
+       build and test to be successful with Perl 5.10.0
+ 
  + [Robert May] : 13 January 2008 -  Bug Fixes
      - ListView.xs - SelectedItems now returns empty list (rather than