[perl-Cairo/stable-1-06] Fix spurious CairoSurface.t failures

[Torsten Schönfeld <tsch src gnome org>]

commit 9073da824de844e9b9390e1013cfd03652fc7e78
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Apr 30 15:45:46 2011 +0200

    Fix spurious CairoSurface.t failures
    
    These were caused by a premature call to $surf->finish which made the
    surface that tests were run against unusable.
    
    https://bugzilla.gnome.org/show_bug.cgi?id=632040

 t/CairoSurface.t |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/t/CairoSurface.t b/t/CairoSurface.t
index 3f6def1..e0370f6 100644
--- a/t/CairoSurface.t
+++ b/t/CairoSurface.t
@@ -67,11 +67,9 @@ is ($surf->get_height, IMG_HEIGHT);
 	}
 }
 
-$surf->finish;
-
-$surf = $surf->create_similar ('color', IMG_WIDTH, IMG_HEIGHT);
-isa_ok ($surf, 'Cairo::ImageSurface');
-isa_ok ($surf, 'Cairo::Surface');
+my $similar = $surf->create_similar ('color', IMG_WIDTH, IMG_HEIGHT);
+isa_ok ($similar, 'Cairo::ImageSurface');
+isa_ok ($similar, 'Cairo::Surface');
 
 # Test that the enum wrappers differentiate between color and color-alpha.
 SKIP: {
@@ -115,6 +113,8 @@ SKIP: {
 	like (Cairo::Format::stride_for_width ('argb32', 23), qr/\A\d+\z/);
 }
 
+$surf->finish;
+
 # --------------------------------------------------------------------------- #
 
 sub clear {