On 02/08/2007, Reini Urban <[EMAIL PROTECTED]> 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 <[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/ > > -- Please update your address book with my new email address: [EMAIL PROTECTED] ------------------------------------------------------------------------- Check out the new SourceForge.net Marketplace. It's the best place to buy or sell services for just about anything Open Source. http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace _______________________________________________ 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/
