oh oh! Try this

[p5pRT]

Migrated from rt.perl.org#951 (status was 'resolved')

Searchable as RT951$

[p5pRT]

From cabney@cyberpass.net

Try invoking this with and without the -D flag and note the behavior of
$DEBUG​:
====================<test1.pl>====================
#!/usr/bin/perl -w
use Getopt​::Std;

getopts('pDd​:f​:');
print "opt-D is​: $opt_D\n";

# if it's on the command line w/no arg it gets a 1
$opt_D ? $DEBUG = 1 : $DEBUG = 0;

print "opt-D is​: $opt_D\n";
print "DEBUG is​: $DEBUG\n";
====================<test1.pl>====================

Ok, this is how it /should/ behave​:
====================<test2.pl>====================
#!/usr/bin/perl -w
use Getopt​::Std;

getopts('pDd​:f​:');
print "opt-D is​: $opt_D\n";

# if it's on the command line w/no arg it gets a 1
$opt_D ? foo(1) : foo(0);

print "opt-D is​: $opt_D\n";
print "DEBUG is​: $DEBUG\n";

sub foo {
  $DEBUG = shift;
}
====================<test2.pl>====================

Forgive me if this is a FAQ, or a 'feature', but it looks like
assignments aren't being carried out inside the 'x ? y : z'
thinger. Is this a bug?

-C
--
Einstein himself said that God doesn't roll dice. But he was wrong. And
in fact, anyone who has played role-playing games knows that God
probably had to roll quite a few dice to come up with a character like
Einstein. -- Larry Wall C. Abney