[cairo-commit] cairo-perl/t Cairo.t, 1.16, 1.17 CairoFont.t, 1.4, 1.5 CairoPath.t, 1.1, 1.2 CairoPattern.t, 1.9, 1.10 CairoSurface.t, 1.23, 1.24

[Torsten Schoenfeld]

Committed by: tsch

Update of /cvs/cairo/cairo-perl/t
In directory kemper:/tmp/cvs-serv24653/t

Modified Files:
	Cairo.t CairoFont.t CairoPath.t CairoPattern.t CairoSurface.t 
Log Message:
	* t/Cairo.t
	* t/CairoFont.t
	* t/CairoPath.t
	* t/CairoPattern.t
	* t/CairoSurface.t: Don't use the hash-ref variant of the constant
	pragma.  It's not supported by the version that ships with perl
	5.6.


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Cairo.t	13 Oct 2007 21:23:16 -0000	1.16
+++ Cairo.t	14 Oct 2007 18:03:43 -0000	1.17
@@ -18,10 +18,8 @@
 	}
 }
 
-use constant {
-	IMG_WIDTH => 256,
-	IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
 
 BEGIN {
 	use_ok ('Cairo');

Index: CairoFont.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoFont.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- CairoFont.t	10 Aug 2006 17:34:40 -0000	1.4
+++ CairoFont.t	14 Oct 2007 18:03:43 -0000	1.5
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # Copyright (c) 2004-2005 by the cairo perl team (see the file README)
 #

Index: CairoPath.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoPath.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- CairoPath.t	12 Jul 2005 20:29:49 -0000	1.1
+++ CairoPath.t	14 Oct 2007 18:03:43 -0000	1.2
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # Copyright (c) 2004-2005 by the cairo perl team (see the file README)
 #
@@ -12,10 +13,8 @@
 
 use Test::More tests => 4;
 
-use constant {
-	IMG_WIDTH => 256,
-	IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
 
 my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT);
 my $cr = Cairo::Context->create ($surf);

Index: CairoPattern.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoPattern.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- CairoPattern.t	13 Oct 2007 21:23:16 -0000	1.9
+++ CairoPattern.t	14 Oct 2007 18:03:43 -0000	1.10
@@ -18,10 +18,8 @@
 	}
 }
 
-use constant {
-	IMG_WIDTH => 256,
-	IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
 
 use Cairo;
 

Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- CairoSurface.t	7 Oct 2007 13:11:59 -0000	1.23
+++ CairoSurface.t	14 Oct 2007 18:03:43 -0000	1.24
@@ -14,10 +14,8 @@
 
 use Test::More tests => 64;
 
-use constant {
-	IMG_WIDTH => 256,
-	IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
 
 use Cairo;