X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=sdlgit%2FSDL-Site.git;a=blobdiff_plain;f=pages%2FSDL-Video.html-inc;h=ccf233c2a212cca39e990729e196790a8fddc3a1;hp=0bddd0947a1afe06fd16522127c3704bea921755;hb=3afd3fb0984d2df0ce491f16546fbfa9b5454990;hpb=c9cddf15865cc7e2bb90765a35b3f7381c1d4a7e

diff --git a/pages/SDL-Video.html-inc b/pages/SDL-Video.html-inc
index 0bddd09..ccf233c 100644
--- a/pages/SDL-Video.html-inc
+++ b/pages/SDL-Video.html-inc
@@ -688,11 +688,11 @@ a matching unlock.</p>
 
  sub main
  {
-     carp 'Unable to init SDL: '.SDL::get_error() if( SDL::init(SDL_INIT_VIDEO) &lt; 0);
+     Carp::cluck 'Unable to init SDL: '.SDL::get_error() if( SDL::init(SDL_INIT_VIDEO) &lt; 0);
 
      $screen = SDL::Video::set_video_mode( 640, 480, 32, SDL_SWSURFACE);
 
-     carp 'Unable to set 640x480x32 video' . SDL::get_error() if(!$screen);
+     Carp::cluck 'Unable to set 640x480x32 video' . SDL::get_error() if(!$screen);
 
      while(1)
      {