From 011ed156c5e62e01478e9c263d3c441aae909205 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 7 May 2004 13:52:01 +0000
Subject: typo in comment

---
 Perl/t/Images.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/t/Images.t b/Perl/t/Images.t
index dfa342b..85b9714 100644
--- a/Perl/t/Images.t
+++ b/Perl/t/Images.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Images.t,v 1.3 2003-11-28 09:21:10 mertz Exp $
+# $Id: Images.t,v 1.4 2004-05-07 13:52:01 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -108,7 +108,7 @@ TODO: {
     local $TODO = "because it makes Tk::Zinc dying" if 1;
 
     # the next line makes Tk::Zinc (v3.29x) dying... so I comment it out the 3 next lines 
-    # $zinc->itemconfigure($rect1, -fillpattern => $bitmap)
+    # $zinc->itemconfigure($rect1, -fillpattern => $bitmap);
     # is ($zinc->itemcget($rect1, -fillpattern), $bitmap, "verifying rectangle -fillpattern option value as a Tk::Bitmap");
     # &wait ("displaying a rectangle with -fillpattern as a Tk::Bitmap");
 }
-- 
cgit v1.1