[perl-win32-gui-hackers] 5.9.5 carp patch

[Reini Urban]

Attached is a Carp patch for 5.9.5.

t/01_load............................NOK 2/3#   at t/01_load.t line 38.
#     Tried to use 'Win32::GUI::Constants'.
#     Error:  syntax error at 
/cygdrive/r/PERL/Win32-GUI/Win32-GUI-Constants/../
blib/lib/Win32/GUI/Constants.pm line 274, near "Carp::croak qq(Can't 
continue after import errors)"

and so on.
--
Reini Urban
http://phpwiki.org/  http://murbreak.at/
http://helsinki.at/  http://spacemovie.mur.at/
2007-08-02  Reini Urban <[EMAIL PROTECTED]>
            * no Carp prototypes since 5.9.x.

diff -ub  ./GUI.pm.orig
--- ./GUI.pm.orig       2007-07-28 21:01:37.015625000 +0000
+++ ./GUI.pm    2007-08-02 06:34:00.531000000 +0000
@@ -423,8 +423,8 @@
 
    if(keys(%options) != 0) {
        require Carp;
-       Carp::carp "Animate: Unrecognised options ".join(", ", keys(%options));
-       return undef
+       Carp::carp("Animate: Unrecognised options ".join(", ", keys(%options)));
+       return undef;
    }
 
    $show      = 1      unless defined $show;
@@ -435,13 +435,13 @@
 
    if($animation !~ /roll|slide|blend|center/) {
        require Carp;
-       Carp::carp "Animate: Unrecognised animation type: $animation";
+       Carp::carp("Animate: Unrecognised animation type: $animation");
        return undef;
    }
 
    if($direction !~ /lr|tlbr|tb|trbl|rl|brtl|bt|bltr/) {
        require Carp;
-       Carp::carp "Animate: Unrecognised direction: $direction";
+       Carp::carp("Animate: Unrecognised direction: $direction");
        return undef unless $direction eq 'blrt'; # blrt allowed for deprection 
cycle
    }
 
diff -ub  ./Win32-GUI-Constants/Constants.pm.orig
--- ./Win32-GUI-Constants/Constants.pm.orig     2007-07-28 21:01:38.359375000 
+0000
+++ ./Win32-GUI-Constants/Constants.pm  2007-08-02 06:33:48.702875000 +0000
@@ -271,7 +271,7 @@
     if($oops) {
         # only require Carp if we need it
         require Carp;
-        Carp::croak qq(Can't continue after import errors);
+        Carp::croak(qq(Can't continue after import errors));
     }
 }
 
-------------------------------------------------------------------------
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-Hackers mailing list
Perl-Win32-GUI-Hackers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-hackers
http://perl-win32-gui.sourceforge.net/