Hello community,
here is the log from the commit of package perl-Cairo
checked in at Thu Nov 22 21:19:05 CET 2007.
--------
--- perl-Cairo/perl-Cairo.changes 2007-11-01 15:51:55.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Cairo/perl-Cairo.changes 2007-11-21 11:42:14.000000000 +0100
@@ -1,0 +2,14 @@
+Wed Nov 21 11:00:19 CET 2007 - anicka@suse.cz
+
+- update to 1.044
+ * Cairo.pm: Add entries for the various surfaces to the API
+ listing.
+ * Makefile.PL: Update the list of exported symbols.
+ * t/CairoPattern.t: When Test::Number::Delta is not available,
+ skip the relevant tests instead of faking passes.
+ * 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.
+- enable fixed tests again
+
+-------------------------------------------------------------------
Old:
----
Cairo-1.043.tar.bz2
New:
----
Cairo-1.044.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Cairo.spec ++++++
--- /var/tmp/diff_new_pack.U26789/_old 2007-11-22 21:18:36.000000000 +0100
+++ /var/tmp/diff_new_pack.U26789/_new 2007-11-22 21:18:36.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Cairo (Version 1.043 )
+# spec file for package perl-Cairo (Version 1.044 )
#
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -11,7 +11,7 @@
# norootforbuild
Name: perl-Cairo
-Version: 1.043
+Version: 1.044
Release: 1
Requires: perl = %{perl_version} perl-ExtUtils-Depends perl-ExtUtils-PkgConfig
BuildRequires: cairo-devel perl-ExtUtils-Depends perl-ExtUtils-PkgConfig pkgconfig
@@ -41,10 +41,6 @@
#disable some randomly failing tests
mv t/Cairo.t t/Cairo.tt
mv t/CairoFont.t t/CairoFont.tt
-#temporarily disable test that started to fail after last Cairo update [#258451]
-mv t/CairoSurface.t t/CairoSurface.tt
-#this test needs Test::Number::Delta
-mv t/CairoPattern.t t/CairoPattern.tt
perl Makefile.PL
make
@@ -68,7 +64,19 @@
%{perl_vendorarch}/Cairo/*
%dir %{perl_vendorarch}/Cairo
/var/adm/perl-modules/%{name}
+
%changelog
+* Wed Nov 21 2007 - anicka@suse.cz
+- update to 1.044
+ * Cairo.pm: Add entries for the various surfaces to the API
+ listing.
+ * Makefile.PL: Update the list of exported symbols.
+ * t/CairoPattern.t: When Test::Number::Delta is not available,
+ skip the relevant tests instead of faking passes.
+ * 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.
+- enable fixed tests again
* Thu Nov 01 2007 - anicka@suse.cz
- update to 1.043
* Makefile.PL: Use BEGIN { require 5.006; } instead of require
++++++ Cairo-1.043.tar.bz2 -> Cairo-1.044.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/CairoFont.xs new/Cairo-1.044/CairoFont.xs
--- old/Cairo-1.043/CairoFont.xs 2006-08-10 19:34:40.000000000 +0200
+++ new/Cairo-1.044/CairoFont.xs 2007-11-20 20:44:56.000000000 +0100
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Header: /cvs/cairo/cairo-perl/CairoFont.xs,v 1.8 2006/08/10 17:34:40 tsch Exp $
+ * $Header: /cvs/cairo/cairo-perl/CairoFont.xs,v 1.8 2006-08-10 17:34:40 tsch Exp $
*/
#include
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/CairoMatrix.xs new/Cairo-1.044/CairoMatrix.xs
--- old/Cairo-1.043/CairoMatrix.xs 2006-05-14 16:55:25.000000000 +0200
+++ new/Cairo-1.044/CairoMatrix.xs 2007-11-20 20:44:56.000000000 +0100
@@ -3,7 +3,7 @@
*
* Licensed under the LGPL, see LICENSE file for more information.
*
- * $Header: /cvs/cairo/cairo-perl/CairoMatrix.xs,v 1.7 2006/05/14 13:43:10 tsch Exp $
+ * $Header: /cvs/cairo/cairo-perl/CairoMatrix.xs,v 1.7 2006-05-14 13:43:10 tsch Exp $
*/
#include
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/Cairo.pm new/Cairo-1.044/Cairo.pm
--- old/Cairo-1.043/Cairo.pm 2007-10-14 00:42:19.000000000 +0200
+++ new/Cairo-1.044/Cairo.pm 2007-11-20 21:04:10.000000000 +0100
@@ -3,7 +3,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/Cairo.pm,v 1.29 2007-10-13 22:42:19 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/Cairo.pm,v 1.29.2.2 2007-11-20 20:04:10 tsch Exp $
#
package Cairo;
@@ -14,7 +14,7 @@
our @ISA = qw/DynaLoader/;
-our $VERSION = '1.043';
+our $VERSION = '1.044';
sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }
@@ -1031,6 +1031,359 @@
# --------------------------------------------------------------------------- #
+=head3 FreeType Fonts -- Font support for FreeType
+
+If your cairo library supports it, the FreeType integration allows you to load
+font faces from font files. You can query for this capability with
+CCairo::HAS_FT_FONT. To actually use this, you'll need the LFont::FreeType
+module.
+
+=head4 my $face = Cairo::FtFontFace->create ($ft_face, $load_flags=0)
+
+=over
+
+=item $ft_face: IFont::FreeType::Face
+
+=item $load_flags: integer
+
+=back
+
+This method allows you to create a ICairo::FontFace from a
+IFont::FreeType::Face. To obtain the latter, you can for example load it
+from a file:
+
+ my $file = '/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf';
+ my $ft_face = Font::FreeType->new->face ($file);
+ my $face = Cairo::FtFontFace->create ($ft_face);
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head2 Surfaces
+
+=head3 ICairo::Surface -- Base class for surfaces
+
+=head4 $new = $old->create_similar ($content, $width, $height)
+
+=over
+
+=item $content: ICairo::Content
+
+=item $width: integer
+
+=item $height: integer
+
+=back
+
+=head4 $status = $surface->status
+
+=head4 $surface->finish
+
+=head4 $surface->flush
+
+=head4 $font_options = $surface->get_font_options
+
+=head4 $content = $surface->get_content [1.2]
+
+=head4 $surface->mark_dirty
+
+=head4 $surface->mark_dirty_rectangle ($x, $y, $width, $height)
+
+=over
+
+=item $x: integer
+
+=item $y: integer
+
+=item $width: integer
+
+=item $height: integer
+
+=back
+
+=head4 $surface->set_device_offset ($x_offset, $y_offset)
+
+=over
+
+=item $x_offset: integer
+
+=item $y_offset: integer
+
+=back
+
+=head4 ($x_offset, $y_offset) = $surface->get_device_offset [1.2]
+
+=head4 $surface->set_fallback_resolution ($x_pixels_per_inch, $y_pixels_per_inch) [1.2]
+
+=over
+
+=item $x_pixels_per_inch: double
+
+=item $y_pixels_per_inch: double
+
+=back
+
+=head4 $type = $surface->get_type [1.2]
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head3 Image Surfaces -- Rendering to memory buffers
+
+=head4 $surface = Cairo::ImageSurface->create ($format, $width, $height)
+
+=over
+
+=item $format: ICairo::Format
+
+=item $width: integer
+
+=item $height: integer
+
+=back
+
+=head4 $surface = Cairo::ImageSurface->create_for_data ($data, $format, $width, $height, $stride)
+
+=over
+
+=item $data: image data
+
+=item $format: ICairo::Format
+
+=item $width: integer
+
+=item $height: integer
+
+=item $stride: integer
+
+=back
+
+=head4 $data = $surface->get_data [1.2]
+
+=head4 $format = $surface->get_format [1.2]
+
+=head4 $width = $surface->get_width
+
+=head4 $height = $surface->get_height
+
+=head4 $stride = $surface->get_stride [1.2]
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head3 PDF Surfaces -- Rendering PDF documents
+
+=head4 $surface = Cairo::PdfSurface->create ($filename, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $filename: string
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface = Cairo::PdfSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $callback: LCairo::WriteFunc
+
+=item $callback_data: scalar
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface->set_size ($width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head3 PNG Support -- Reading and writing PNG images
+
+=head4 $surface = Cairo::ImageSurface->create_from_png ($filename)
+
+=over
+
+=item $filename: string
+
+=back
+
+=head4 Cairo::ReadFunc: $data = sub { my ($callback_data, $length) = @_; }
+
+=over
+
+=item $data: binary image data, of length $length
+
+=item $callback_data: scalar, user data
+
+=item $length: integer, bytes to read
+
+=back
+
+=head4 $surface = Cairo::ImageSurface->create_from_png_stream ($callback, $callback_data)
+
+=over
+
+=item $callback: LCairo::ReadFunc
+
+=item $callback_data: scalar
+
+=back
+
+=head4 $status = $surface->write_to_png ($filename)
+
+=over
+
+=item $filename: string
+
+=back
+
+=head4 Cairo::WriteFunc: sub { my ($callback_data, $data) = @_; }
+
+=over
+
+=item $callback_data: scalar, user data
+
+=item $data: binary image data, to be written
+
+=back
+
+=head4 $status = $surface->write_to_png_stream ($callback, $callback_data)
+
+=over
+
+=item $callback: LCairo::WriteFunc
+
+=item $callback_data: scalar
+
+=back
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head3 PostScript Surfaces -- Rendering PostScript documents
+
+=head4 $surface = Cairo::PsSurface->create ($filename, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $filename: string
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface = Cairo::PsSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $callback: LCairo::WriteFunc
+
+=item $callback_data: scalar
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface->set_size ($width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface->dsc_begin_setup [1.2]
+
+=head4 $surface->dsc_begin_page_setup [1.2]
+
+=head4 $surface->dsc_comment ($comment) [1.2]
+
+=over
+
+=item $comment: string
+
+=back
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
+=head3 SVG Surfaces -- Rendering SVG documents
+
+=head4 $surface = Cairo::SvgSurface->create ($filename, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $filename: string
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface = Cairo::SvgSurface->create_for_stream ($callback, $callback_data, $width_in_points, $height_in_points) [1.2]
+
+=over
+
+=item $callback: LCairo::WriteFunc
+
+=item $callback_data: scalar
+
+=item $width_in_points: double
+
+=item $height_in_points: double
+
+=back
+
+=head4 $surface->restrict_to_version ($version) [1.2]
+
+=over
+
+=item $version: ICairo::SvgVersion
+
+=back
+
+=head4 @versions = $surface->get_versions [1.2]
+
+=head4 $string = $surface->version_to_string ($version) [1.2]
+
+=over
+
+=item $version: ICairo::SvgVersion
+
+=back
+
+=cut
+
+# --------------------------------------------------------------------------- #
+
=head2 Utilities
=head3 Version Information -- Run-time and compile-time version checks.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/ChangeLog new/Cairo-1.044/ChangeLog
--- old/Cairo-1.043/ChangeLog 2007-10-14 00:42:02.000000000 +0200
+++ new/Cairo-1.044/ChangeLog 2007-11-20 21:03:52.000000000 +0100
@@ -1,3 +1,31 @@
+2007-11-20 Torsten Schoenfeld
+
+ * Cairo.pm
+ * NEWS: Stable release 1.044.
+
+2007-11-20 Torsten Schoenfeld
+
+ Merge from HEAD:
+
+ * Cairo.pm: Add entries for the various surfaces to the API
+ listing.
+
+ * Makefile.PL: Update the list of exported symbols. (Reported by
+ spicy jack)
+
+ * t/Cairo.t
+ * t/CairoPattern.t: When Test::Number::Delta is not available,
+ skip the relevant tests instead of faking passes. (Suggested by
+ Aristotle Pagaltzis)
+
+ * 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.
+
2007-10-14 Torsten Schoenfeld
* Cairo.pm
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/examples/png-streams.pl new/Cairo-1.044/examples/png-streams.pl
--- old/Cairo-1.043/examples/png-streams.pl 2007-03-17 17:13:32.000000000 +0100
+++ new/Cairo-1.044/examples/png-streams.pl 2007-11-20 20:53:27.000000000 +0100
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: png-streams.pl,v 1.2 2007/03/17 16:13:32 tsch Exp $
+# $Id: png-streams.pl,v 1.2 2007-03-17 16:13:32 tsch Exp $
use strict;
use warnings;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/examples/simple.pl new/Cairo-1.044/examples/simple.pl
--- old/Cairo-1.043/examples/simple.pl 2006-11-04 23:40:30.000000000 +0100
+++ new/Cairo-1.044/examples/simple.pl 2007-11-20 20:44:56.000000000 +0100
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
-# $Header: /cvs/cairo/cairo-perl/examples/simple.pl,v 1.3 2006/06/03 14:21:10 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/examples/simple.pl,v 1.3 2006-06-03 14:21:10 tsch Exp $
#
use strict;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/Makefile.PL new/Cairo-1.044/Makefile.PL
--- old/Cairo-1.043/Makefile.PL 2007-10-13 23:23:16.000000000 +0200
+++ new/Cairo-1.044/Makefile.PL 2007-11-20 21:01:07.000000000 +0100
@@ -3,7 +3,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/Makefile.PL,v 1.28 2007-10-13 21:23:16 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/Makefile.PL,v 1.28.2.1 2007-11-20 20:01:07 tsch Exp $
#
BEGIN { require 5.006; }
@@ -324,18 +324,20 @@
$dep->save_config ('build/IFiles.pm');
my @exports = qw(
+ cairo_font_type_from_sv
+ cairo_font_type_to_sv
cairo_object_from_sv
cairo_object_to_sv
+ cairo_pattern_to_sv
cairo_struct_from_sv
cairo_struct_to_sv
+ cairo_surface_to_sv
newSVCairoFontExtents
- newSVCairoTextExtents
newSVCairoGlyph
- SvCairoGlyph
newSVCairoPath
+ newSVCairoTextExtents
+ SvCairoGlyph
SvCairoPath
- cairo_surface_to_sv
- cairo_pattern_to_sv
);
WriteMakefile (
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/MakeHelper.pm new/Cairo-1.044/MakeHelper.pm
--- old/Cairo-1.043/MakeHelper.pm 2006-12-30 20:16:31.000000000 +0100
+++ new/Cairo-1.044/MakeHelper.pm 2007-11-20 20:53:26.000000000 +0100
@@ -2,7 +2,7 @@
# this is all hacky etc. it works so it's gonna stay for now. it is not and
# should not be installed.
#
-# $Header: /cvs/cairo/cairo-perl/MakeHelper.pm,v 1.11 2006/12/30 19:16:31 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/MakeHelper.pm,v 1.11 2006-12-30 19:16:31 tsch Exp $
#
package MakeHelper;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/META.yml new/Cairo-1.044/META.yml
--- old/Cairo-1.043/META.yml 2007-10-14 00:43:52.000000000 +0200
+++ new/Cairo-1.044/META.yml 2007-11-20 21:05:02.000000000 +0100
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Cairo
-version: 1.043
+version: 1.044
abstract: Perl interface to the cairo library
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/NEWS new/Cairo-1.044/NEWS
--- old/Cairo-1.043/NEWS 2007-10-14 00:41:06.000000000 +0200
+++ new/Cairo-1.044/NEWS 2007-11-20 21:01:27.000000000 +0100
@@ -1,3 +1,9 @@
+Overview of changes in Cairo 1.044
+==================================
+
+* Add entries for the various kinds of surfaces to the API listing.
+* Fix some test suite and build issues.
+
Overview of changes in Cairo 1.043
==================================
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/CairoFont.t new/Cairo-1.044/t/CairoFont.t
--- old/Cairo-1.043/t/CairoFont.t 2006-08-10 19:34:40.000000000 +0200
+++ new/Cairo-1.044/t/CairoFont.t 2007-11-20 21:01:08.000000000 +0100
@@ -1,9 +1,10 @@
+#!/usr/bin/perl
#
# Copyright (c) 2004-2005 by the cairo perl team (see the file README)
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/CairoFont.t,v 1.4 2006/08/10 17:34:40 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/CairoFont.t,v 1.4.6.1 2007-11-20 20:01:08 tsch Exp $
#
use strict;
@@ -11,10 +12,8 @@
use Test::More tests => 20;
-use constant {
- IMG_WIDTH => 256,
- IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
use Cairo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/CairoMatrix.t new/Cairo-1.044/t/CairoMatrix.t
--- old/Cairo-1.043/t/CairoMatrix.t 2006-05-14 16:57:04.000000000 +0200
+++ new/Cairo-1.044/t/CairoMatrix.t 2007-11-20 20:44:56.000000000 +0100
@@ -3,7 +3,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/CairoMatrix.t,v 1.3 2005/07/29 17:19:55 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/CairoMatrix.t,v 1.3 2005-07-29 17:19:55 tsch Exp $
#
use strict;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/CairoPath.t new/Cairo-1.044/t/CairoPath.t
--- old/Cairo-1.043/t/CairoPath.t 2006-12-28 20:08:54.000000000 +0100
+++ new/Cairo-1.044/t/CairoPath.t 2007-11-20 21:01:08.000000000 +0100
@@ -1,9 +1,10 @@
+#!/usr/bin/perl
#
# Copyright (c) 2004-2005 by the cairo perl team (see the file README)
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/CairoPath.t,v 1.1 2005/07/12 20:29:49 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/CairoPath.t,v 1.1.6.1 2007-11-20 20:01:08 tsch Exp $
#
use strict;
@@ -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);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/CairoPattern.t new/Cairo-1.044/t/CairoPattern.t
--- old/Cairo-1.043/t/CairoPattern.t 2007-10-13 23:23:16.000000000 +0200
+++ new/Cairo-1.044/t/CairoPattern.t 2007-11-20 21:01:08.000000000 +0100
@@ -4,7 +4,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/CairoPattern.t,v 1.9 2007-10-13 21:23:16 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/CairoPattern.t,v 1.9.2.1 2007-11-20 20:01:08 tsch Exp $
#
use strict;
@@ -13,15 +13,12 @@
use Test::More tests => 25;
unless (eval 'use Test::Number::Delta; 1;') {
- *delta_ok = sub {
- ok(1, 'Fake delta_ok');
- }
+ my $reason = 'Test::Number::Delta not available';
+ *delta_ok = sub { SKIP: { skip $reason, 1 } };
}
-use constant {
- IMG_WIDTH => 256,
- IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
use Cairo;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/CairoSurface.t new/Cairo-1.044/t/CairoSurface.t
--- old/Cairo-1.043/t/CairoSurface.t 2007-10-07 15:11:59.000000000 +0200
+++ new/Cairo-1.044/t/CairoSurface.t 2007-11-20 21:01:08.000000000 +0100
@@ -4,7 +4,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/CairoSurface.t,v 1.23 2007-10-07 13:11:59 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/CairoSurface.t,v 1.23.2.1 2007-11-20 20:01:08 tsch Exp $
#
use strict;
@@ -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;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Cairo-1.043/t/Cairo.t new/Cairo-1.044/t/Cairo.t
--- old/Cairo-1.043/t/Cairo.t 2007-10-13 23:23:16.000000000 +0200
+++ new/Cairo-1.044/t/Cairo.t 2007-11-20 21:01:07.000000000 +0100
@@ -4,7 +4,7 @@
#
# Licensed under the LGPL, see LICENSE file for more information.
#
-# $Header: /cvs/cairo/cairo-perl/t/Cairo.t,v 1.16 2007-10-13 21:23:16 tsch Exp $
+# $Header: /cvs/cairo/cairo-perl/t/Cairo.t,v 1.16.2.1 2007-11-20 20:01:07 tsch Exp $
#
use strict;
@@ -13,15 +13,12 @@
use Test::More tests => 68;
unless (eval 'use Test::Number::Delta; 1;') {
- *delta_ok = sub {
- ok(1, 'Fake delta_ok');
- }
+ my $reason = 'Test::Number::Delta not available';
+ *delta_ok = sub { SKIP: { skip $reason, 1 } };
}
-use constant {
- IMG_WIDTH => 256,
- IMG_HEIGHT => 256,
-};
+use constant IMG_WIDTH => 256;
+use constant IMG_HEIGHT => 256;
BEGIN {
use_ok ('Cairo');
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org