X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F11-option-callback.t;h=7e0617f6b3305eebd640dd66e0391d583ebea460;hb=87c72eaf97a3dbf51a93dab782c2909539addc48;hp=fd1fff13328f8ed672a9517396b6552f7d88f800;hpb=1bcfe93d44c7b7c7d21d5fcd6d994792809407f5;p=ZOOM-Perl-moved-to-github.git

diff --git a/t/11-option-callback.t b/t/11-option-callback.t
index fd1fff1..7e0617f 100644
--- a/t/11-option-callback.t
+++ b/t/11-option-callback.t
@@ -1,7 +1,5 @@
-# $Id: 11-option-callback.t,v 1.1 2005-10-18 17:01:55 mike Exp $
-
 # Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl 10-options.t'
+# `make test'. After `make install' it should work as `perl 11-option-callback.t'
 
 use strict;
 use warnings;
@@ -10,8 +8,8 @@ BEGIN { use_ok('Net::Z3950::ZOOM') };
 
 # This callback function provides values only options whose names
 # begin with consonants, in which case the value is the option name
-# concatenated with a hyphen and the the value of the user-data that
-# was lodged along with the callback.
+# concatenated with a hyphen and the value of the user-data that was
+# lodged along with the callback.
 #
 sub f_option {
     my($udata, $name) = @_;