This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Getopt::Long 2.36
[perl5.git] / lib / Getopt / Long / t / gol-basic.t
index 24a71db..1ad5b75 100644 (file)
@@ -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");