From 8de02997ac38b64dd5d3d654b85f7d29a1fc56af Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 31 Jan 2007 13:58:40 +0000
Subject: Upgrade to Getopt::Long 2.36
p4raw-id: //depot/perl@30086
---
lib/Getopt/Long/t/gol-basic.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'lib/Getopt/Long/t/gol-basic.t')
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");
--
cgit v1.2.1