X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=t%2F11-option-callback.t;h=ae8e488508a927932115d4930c9db92d3966d235;hb=7520ed846be21307038247f134786749d392ed83;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..ae8e488 100644
--- a/t/11-option-callback.t
+++ b/t/11-option-callback.t
@@ -1,7 +1,7 @@
-# $Id: 11-option-callback.t,v 1.1 2005-10-18 17:01:55 mike Exp $
+# $Id: 11-option-callback.t,v 1.2 2005-10-19 15:14:26 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 +10,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) = @_;