X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=test%2Ftestcolor.pl;h=e341a8557834e4b6e0baa680224036447a10fca6;hb=fd90b841f2735a66ab950b83037589de64422fca;hp=9865b62d4753fff2faa570494c9f1e9f4687bcf9;hpb=8fde61e3e900d5000c94503679d735221acc1882;p=sdlgit%2FSDL_perl.git

diff --git a/test/testcolor.pl b/test/testcolor.pl
index 9865b62..e341a85 100644
--- a/test/testcolor.pl
+++ b/test/testcolor.pl
@@ -25,8 +25,7 @@ my %colors = (
 
 
 $x = 0; $y = 0;
-$rect = new SDL::Rect -x => $x, -y => $y, 
-	-w => $app->width / scalar(keys %colors), -h => $app->height();
+$rect = SDL::Rect->new( $x,  $y, $app->width / scalar(keys %colors), $app->height());
 
 print "Sorted colors:\n";