projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f2ef12d
)
Comments fixed. No functional changes.
author
mike
<mike>
Wed, 19 Oct 2005 15:14:26 +0000
(15:14 +0000)
committer
mike
<mike>
Wed, 19 Oct 2005 15:14:26 +0000
(15:14 +0000)
t/11-option-callback.t
patch
|
blob
|
history
diff --git
a/t/11-option-callback.t
b/t/11-option-callback.t
index
fd1fff1
..
ae8e488
100644
(file)
--- 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
# 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;
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
# 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) = @_;
#
sub f_option {
my($udata, $name) = @_;