On 02/08/2007, Reini Urban <ru...@x-...> wrote:
> Attached is a Carp patch for 5.9.5.
Thanks, and apologies for the delay. Applied to CVS. Builds and
tests OK for me (MSVC6, WinXP, AS Perl build 1001), but I haven't
actually tried using it for anything more taxing yet.
Rob.
>
> 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 <ru...@x-...>
> * 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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-hackers
> http://perl-win32-gui.sourceforge.net/
>
>
--
Please update your address book with my new email address:
ro...@th...
|
