diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-31 13:58:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-31 13:58:40 +0000 |
| commit | 8de02997ac38b64dd5d3d654b85f7d29a1fc56af (patch) | |
| tree | b3ce5bcc2004d130430d4f4e43b8725b040cbb8e /lib/Getopt/Long/t/gol-basic.t | |
| parent | 0cd10f52059c60990d7cf337e190bb16778b8c4a (diff) | |
| download | perl-8de02997ac38b64dd5d3d654b85f7d29a1fc56af.tar.gz | |
Upgrade to Getopt::Long 2.36
p4raw-id: //depot/perl@30086
Diffstat (limited to 'lib/Getopt/Long/t/gol-basic.t')
| -rw-r--r-- | lib/Getopt/Long/t/gol-basic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Getopt/Long/t/gol-basic.t b/lib/Getopt/Long/t/gol-basic.t index 24a71db528..1ad5b75ac5 100644 --- a/lib/Getopt/Long/t/gol-basic.t +++ b/lib/Getopt/Long/t/gol-basic.t @@ -20,7 +20,7 @@ print "1..9\n"; @ARGV = qw(-Foo -baR --foo bar); undef $opt_baR; undef $opt_bar; -print "ok 1\n" if GetOptions ("foo", "Foo=s"); +print (GetOptions("foo", "Foo=s") ? "" : "not ", "ok 1\n"); print ((defined $opt_foo) ? "" : "not ", "ok 2\n"); print (($opt_foo == 1) ? "" : "not ", "ok 3\n"); print ((defined $opt_Foo) ? "" : "not ", "ok 4\n"); |