qwurx [shmem] ~> libdirs=`perl -E 'say for @INC'`
qwurx [shmem] ~> perl -lne 'print "$ARGV: $_" if /\$(\w+)\s+=\s+\$\1\s*\?/' `(for d in $libdirs; do find $d -type f; done)`
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.pm:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/Treeregexp.yp:   $semantic = $semantic? $semantic->{attr} : undef;
/usr/local/share/perl/5.20.2/Parse/Eyapp/eyapp: $opt_s = $opt_s ? 1 : 0;
/usr/local/share/perl/5.20.2/Parse/Eyapp/eyapp: $opt_n = $opt_n ? 0 : 1;
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? lc($proto) : 'tcp';
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? lc($proto) : 'tcp';
/usr/local/share/perl/5.20.2/Net/EmptyPort.pm:     $proto = $proto ? lc($proto) : 'tcp';
Can't open /usr/local/share/perl/5.20.2/.Inline.pm.swp: Permission denied at -e line 1, <> line 524147.
/usr/local/share/perl/5.20.2/ExtUtils/ParseXS.pm:     $externC = $externC ? qq[extern "C"] : "";
/usr/local/share/perl/5.20.2/Test/Builder/Tester.pm:         $got = $got ? "$got\n$g" : $g;
/usr/local/share/perl/5.20.2/Test/Builder/Tester.pm:         $wanted = $wanted ? "$wanted\n$w" : $w;
/usr/local/share/perl/5.20.2/Test/Builder.pm:     $test = $test ? 1 : 0;
/usr/local/share/perl/5.20.2/Test/Tester/Capture.pm: 	$test = $test ? 1 : 0;
/usr/local/share/perl/5.20.2/Test2/Compare/Bool.pm:     $match = $match ? 0 : 1 if $self->{+NEGATE};
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:     $parser = $parser ? $parser->_dump() : '<no parser>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:             $prev = $prev ? "#$lut->{ $prev }<-": '<undef>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Provider.pm:             $next = $next ? "->#$lut->{ $next }": '<undef>';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Directive.pm:     $line = $line ? " (starting line $line)" : '';
/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Directive.pm:     $args = $args ? "$args, $alias" : ", undef, $alias"
/usr/lib/x86_64-linux-gnu/perl5/5.20/DBI/SQL/Nano.pm:     if ($neg) { $match = $match ? 0 : 1; }
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
/usr/share/perl5/SQL/Translator/Producer/Oracle.pm:                 $default = $default ? "'1'" : "'0'";
/usr/share/perl5/SQL/Abstract.pm:   $sql = $sql ? $self->_sqlcase(' where ') . "( $sql )" : '';
/usr/share/perl5/Parse/RecDescent.pm:             $lookahead = $lookahead ? -$lookahead : -1;
/usr/share/perl5/Parse/RecDescent.pm:             $lookahead = $lookahead ? $lookahead : 1;
/usr/share/perl5/HTTP/Cookies/Netscape.pm: 	$expires = $expires ? $expires - $HTTP::Cookies::EPOCH_OFFSET : 0;
/usr/share/perl5/HTTP/Cookies/Netscape.pm: 	$secure = $secure ? "TRUE" : "FALSE";
/usr/share/perl5/Config/Tiny.pm: 	$encoding    = $encoding ? "<:$encoding" : '<';
/usr/share/perl5/Config/Tiny.pm: 	$encoding    = $encoding ? ">:$encoding" : '>';
/usr/share/perl5/Mojo/DOM.pm:   $start  = $start  ? ($#$tree + 1) : _start($tree);
/usr/share/perl5/Mojo/DOM.pm:   $offset = $offset ? $#$tree       : 0;
/usr/share/perl5/Font/TTF/OldMort.pm:                         $_ = $_ ? $_ - ($mappingTables / 2) : undef;
/usr/share/perl5/Font/TTF/Mort/Contextual.pm:             $_ = $_ ? $_ - ($mappingTables / 2) : undef;
/usr/share/perl5/Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
/usr/share/perl5/Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
/usr/share/perl5/Net/SNMP/Transport/IPv6.pm:    $s = $s ? sprintf('%%%u', $s) : q{};
/usr/share/perl5/Net/SNMP/Transport/IPv6.pm:    $s = $s ? pack('N', $s) : q{};
/usr/share/perl5/UNIVERSAL/isa.pm:     $extra = $extra ? " ($extra)" : '';
/usr/share/perl5/IO/Socket/Socks.pm:     $status = $status ? AUTHREPLY_SUCCESS : 1; #XXX AUTHREPLY_FAILURE broken
/usr/share/perl5/Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # default for true/false
/usr/share/perl5/Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # default for true/false
/usr/share/perl5/Lintian/Tags.pm:                     $found = $found ? 0 : 1;
/usr/share/perl5/Excel/Writer/XLSX/Drawing.pm:     $underline = $underline ? 'sng' : 'none';
/usr/share/perl5/Excel/Writer/XLSX/Drawing.pm:     $strike = $strike ? 'Strike' : 'noStrike';
/usr/share/perl5/Test/Toolbox.pm: 	$is = $is ? 'true' : 'false';
/usr/share/perl5/Test/Toolbox.pm: 	$should = $should ? 'true' : 'false';
/usr/share/perl5/Test/Toolbox.pm: 	$ok = $ok ? 1 : 0;
/usr/share/perl5/Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible                   ? 0x0000 : 0x0002;
/usr/share/perl5/Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible                   ? 0x0002 : 0x0000;
/usr/share/perl5/Spreadsheet/ParseExcel/Utility.pm:             $double_quote = $double_quote ? 0 : 1;
/usr/share/perl5/Spreadsheet/XLSX/Utility2007.pm:             $iDblQ = $iDblQ? 0: 1;
/usr/share/perl5/Zoidberg/StringParser.pm: 				$expr = $expr ? '('.$expr.')|' : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:         $lang = $lang ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
/usr/share/perl5/Image/ExifTool/XMPStruct.pl:         $delim = $delim ? "\\$delim|,|\\||\$" : ',|\\||$';
/usr/share/perl5/Image/ExifTool/BuildTagLookup.pm:             $rowClass = $rowClass ? '' : " class=b";
/usr/share/perl5/Image/ExifTool/ASF.pm:             $_ = $_ ? 'True' : 'False';
/usr/share/perl5/Image/ExifTool.pm:     $tagInfo = $tagInfo ? { Name => $tagInfo } : { } unless ref $tagInfo eq 'HASH';
/usr/share/perl5/Type/Params.pm: 			$constraint = $constraint ? Any : Optional[Any];
/usr/share/perl5/CGI/Compile.pm:     $proto = $proto ? "($proto)" : '';
/usr/share/perl5/assert.pl: 	$w = $w ? '@ = ' : '$ = ';
/usr/share/perl5/IPC/Run.pm:    $r = $r ? '' : " ERROR $!";
/usr/share/perl5/IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $self->{WIN}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $self->{EIN}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $self->{WOUT}, $_, 1 );
/usr/share/perl5/IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $self->{EOUT}, $_, 1 );
/usr/share/perl5/AppConfig/State.pm:         $value = $value ? 0 : 1 if $negate;
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $index_name = $index_name ? mk_name( $index_name )
./SQL/Translator/Producer/Oracle.pm:                 $default = $default ? "'1'" : "'0'";
./SQL/Abstract.pm:   $sql = $sql ? $self->_sqlcase(' where ') . "( $sql )" : '';
./Parse/RecDescent.pm:             $lookahead = $lookahead ? -$lookahead : -1;
./Parse/RecDescent.pm:             $lookahead = $lookahead ? $lookahead : 1;
./HTTP/Cookies/Netscape.pm: 	$expires = $expires ? $expires - $HTTP::Cookies::EPOCH_OFFSET : 0;
./HTTP/Cookies/Netscape.pm: 	$secure = $secure ? "TRUE" : "FALSE";
./Config/Tiny.pm: 	$encoding    = $encoding ? "<:$encoding" : '<';
./Config/Tiny.pm: 	$encoding    = $encoding ? ">:$encoding" : '>';
./Mojo/DOM.pm:   $start  = $start  ? ($#$tree + 1) : _start($tree);
./Mojo/DOM.pm:   $offset = $offset ? $#$tree       : 0;
./Font/TTF/OldMort.pm:                         $_ = $_ ? $_ - ($mappingTables / 2) : undef;
./Font/TTF/Mort/Contextual.pm:             $_ = $_ ? $_ - ($mappingTables / 2) : undef;
./Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
./Net/EmptyPort.pm:         $proto = $proto ? lc($proto) : 'tcp';
./Net/SNMP/Transport/IPv6.pm:    $s = $s ? sprintf('%%%u', $s) : q{};
./Net/SNMP/Transport/IPv6.pm:    $s = $s ? pack('N', $s) : q{};
./UNIVERSAL/isa.pm:     $extra = $extra ? " ($extra)" : '';
./IO/Socket/Socks.pm:     $status = $status ? AUTHREPLY_SUCCESS : 1; #XXX AUTHREPLY_FAILURE broken
./Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # default for true/false
./Text/CSV_PP.pm:         $v =~ m/^[0-9]/ or $v = $v ? 1 : 0; # default for true/false
./Lintian/Tags.pm:                     $found = $found ? 0 : 1;
./Excel/Writer/XLSX/Drawing.pm:     $underline = $underline ? 'sng' : 'none';
./Excel/Writer/XLSX/Drawing.pm:     $strike = $strike ? 'Strike' : 'noStrike';
./Test/Toolbox.pm: 	$is = $is ? 'true' : 'false';
./Test/Toolbox.pm: 	$should = $should ? 'true' : 'false';
./Test/Toolbox.pm: 	$ok = $ok ? 1 : 0;
./Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible                   ? 0x0000 : 0x0002;
./Spreadsheet/WriteExcel/Worksheet.pm:         $visible = $visible                   ? 0x0002 : 0x0000;
./Spreadsheet/ParseExcel/Utility.pm:             $double_quote = $double_quote ? 0 : 1;
./Spreadsheet/XLSX/Utility2007.pm:             $iDblQ = $iDblQ? 0: 1;
./Zoidberg/StringParser.pm: 				$expr = $expr ? '('.$expr.')|' : '';
./Image/ExifTool/QuickTime.pm:         $lang = $lang ? "($lang) " : '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
./Image/ExifTool/QuickTime.pm:             $lang = $lang ? "($lang) " : '';
./Image/ExifTool/XMPStruct.pl:         $delim = $delim ? "\\$delim|,|\\||\$" : ',|\\||$';
./Image/ExifTool/BuildTagLookup.pm:             $rowClass = $rowClass ? '' : " class=b";
./Image/ExifTool/ASF.pm:             $_ = $_ ? 'True' : 'False';
./Image/ExifTool.pm:     $tagInfo = $tagInfo ? { Name => $tagInfo } : { } unless ref $tagInfo eq 'HASH';
./Type/Params.pm: 			$constraint = $constraint ? Any : Optional[Any];
./CGI/Compile.pm:     $proto = $proto ? "($proto)" : '';
./assert.pl: 	$w = $w ? '@ = ' : '$ = ';
./IPC/Run.pm:    $r = $r ? '' : " ERROR $!";
./IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $self->{WIN}, $_, 1 );
./IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $self->{EIN}, $_, 1 );
./IPC/Run.pm:                $out = $out ? 'b' : 'w'        if vec( $self->{WOUT}, $_, 1 );
./IPC/Run.pm:                $out = $out ? uc( $out ) : 'x' if vec( $self->{EOUT}, $_, 1 );
./AppConfig/State.pm:         $value = $value ? 0 : 1 if $negate;