Updated to 2.515

[sdlgit/SDL-Site.git] / pages / SDL-Video.html-inc

diff --git a/pages/SDL-Video.html-inc b/pages/SDL-Video.html-inc
index 0bddd09..ccf233c 100644 (file)
--- 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)
      {