From: Steve Hancock Date: Sat, 14 Jan 2023 21:56:28 +0000 (-0800) Subject: add expected output check for run_convergence_tests.pl X-Git-Tag: 20221112.04~14 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7f3f9fcbe78868822c06c8899db7db857e6424a0;p=perltidy.git add expected output check for run_convergence_tests.pl This is a large database of weird test cases which had convergence problems at one time in random testing. This is run after all software updates, to be sure they all still converge. This update adds a check for any changes in formatting. --- diff --git a/dev-bin/run_convergence_tests.pl b/dev-bin/run_convergence_tests.pl index 6a09447b..d26c25e4 100755 --- a/dev-bin/run_convergence_tests.pl +++ b/dev-bin/run_convergence_tests.pl @@ -25,6 +25,7 @@ where one parameter may be given to specify the operation to be done: into the default or selected directory -m merge files given in arg list into the default or specified database -p packs files given in arg list into a new database + -e overwrites old expect data with the new results for cases run -r runs the tests [DEFAULT operation] arg1 arg2 ... may contain: @@ -82,6 +83,7 @@ use Getopt::Long; # i.e., -foo and -nofoo are allowed # a double dash signals the end of the options list my @option_string = qw( + e h m p @@ -99,8 +101,9 @@ if ( $Opts{h} ) { exit 1; } -# set default .data file -my $db_fname = $0 . ".data"; +# set default .data file and .expect file +my $db_fname = $0 . ".data"; +my $expect_fname = $0 . ".expect"; # set tmp dir - you may need to change this depending on setup my $git_home = qx[git rev-parse --show-toplevel]; @@ -217,6 +220,14 @@ else { exit 1; } +my $rexpect_files; +if ( -e $expect_fname ) { + $rexpect_files = read_data_to_hash($expect_fname); +} +else { + print STDERR "NOTE: Cannot find expect file $expect_fname\n"; +} + ############### # m: merge data ############### @@ -247,15 +258,25 @@ EOM exit 1; } -run_test_cases( $rdata_files, \@cases ); +my ($rexpect_cases_to_update) = + run_test_cases( $rdata_files, $rexpect_files, \@cases ); + +# Option to rewrite expect data +if ( @{$rexpect_cases_to_update} ) { + write_hash_to_data_file( $expect_fname, $rexpect_files ); +} + exit 1; sub run_test_cases { - my ( $rdata_files, $rcases ) = @_; + my ( $rdata_files, $rexpect_files, $rcases ) = @_; print "\nRun log...\n"; my $rsources = {}; my $rparams = {}; + my $routputs = {}; + my @expect_cases_to_update; + my @expect_differences; foreach my $fname ( keys %{$rdata_files} ) { if ( $fname =~ /^(.*)\.in$/ ) { @@ -360,7 +381,30 @@ sub run_test_cases { push @output_history, $output; if ( $output eq $source ) { - print "$sname: converged on iteration $iteration\n"; + $routputs->{$sname} = $output; + my $msg = ""; + my $expect = $rexpect_files->{$sname}; + if ( defined($expect) ) { + if ( $expect ne $output ) { + + # option -e updates expected output + if ( $Opts{e} ) { + $msg = "UPDATING EXPECT"; + push @expect_cases_to_update, $sname; + $rexpect_files->{$sname} = $output; + } + else { + push @expect_differences, $sname; + $msg = "FORMATTING CHANGED"; + } + } + } + else { + $msg = "NEW EXPECT"; + push @expect_cases_to_update, $sname; + $rexpect_files->{$sname} = $output; + } + print "$sname: converged on iteration $iteration $msg\n"; last; } elsif ( $iteration < $iteration_max ) { @@ -408,6 +452,39 @@ SKIPPED: these requested cases were not found in the database: @skipped_cases EOM } + if (@expect_cases_to_update) { + print < 5 ) { + $msg .= " for the first 5 cases"; + last; + } + my $sfile = $opath . $sname . ".in"; + my $pfile = $opath . $sname . ".par"; + my $nfile = $opath . $sname . ".new"; + my $efile = $opath . $sname . ".exp"; + write_file( $sfile, $rsources->{$sname}, 1 ); + write_file( $pfile, $rparams->{$sname}, 1 ); + write_file( $nfile, $routputs->{$sname}, 1 ); + write_file( $efile, $rexpect_files->{$sname}, 1 ); + } + + print < b001 <== + # State 1 + if ( $printer eq "" || $printer eq 'nulllp' ) { + open( PRINTER, ">>/tmp/kohares" ) ; + } + +__END__ + +# State 2 + if ( $printer eq "" + || $printer eq 'nulllp' ) + { + open( PRINTER, + ">>/tmp/kohares" + ) ; + } + +==> b002 <== +#State 1 +if ( + ( + $search + [0 + ] ) + and + not( + $op + eq +'do_search' + ) + ) + +__END__ + +# State 2 + +if ( + ( $search + [0] ) + and + not( $op + eq +'do_search' + ) + ) + + +==> b003 <== +# State 1 +if ( + ( + $search + [0 + ] ) + and + not( + $op + eq +'do_search' + ) + ) + +__END__ + +# state 2 + +if ( + ( $search + [0] ) + and + not( $op + eq +'do_search' + ) + ) + + +==> b007 <== +# State 1 + +my $todaysdate = + ( + 1900 + + $datearr + [5] ) + . sprintf( + "%0.2d", + ( + $datearr + [ + 3 + ] + ) + ); + +# State 2 +my $todaysdate = + ( + 1900 + + $datearr + [5] ) + . sprintf( + "%0.2d", + ( + $datearr + [ + 3 + ] + ) + ); + + +==> b008 <== +# This is fixed by the update for Bug96 (sub store token_and_space) +# State 1 + +{ + my $warningdate = DateCalc( + $borrower->{'expiry'}, + "- " + . C4::Context->preference( + 'NotifyBorrowerDeparture') + . " days" + ) ; +} + +# State 2 + +{ + my $warningdate = DateCalc( + $borrower->{'expiry'}, + "- " + . C4::Context->preference( + 'NotifyBorrowerDeparture') + . " days" + ) ; +} + +==> b011 <== +# lp bug +open( CVSLOG, + "cvs log $self_path|" +) ; + +open( CVSLOG, + "cvs log $self_path|" +) ; + + +==> b012 <== + # Same as bug 96 + + # State 1 + UpdateStats( + $env, $branch, + 'payment', $data, + '', '', + '', $bornumber ); + + # state 2 + UpdateStats( + $env, $branch, + 'payment', $data, + '', '', + '', $bornumber ); + +==> b013 <== +# Fixed with same fix as for Bug95 +{ + { + { + { + push( @itemloop, + \%overdueitem ); + } + } + } +} + +==> b016 <== +# Fixed is same as Bug96, level of spaces created in sub store_token_and_space +# State 1 + +{ + { + { + { + { + push( + @subfields_data, + &create_input( + '', '', '', $i, $record, $authorised_values_sth + ) + ); + } + } + } + } +} + +# State 2 + +{ + { + { + { + { + push( + @subfields_data, + &create_input( + '', '', '', $i, $record, $authorised_values_sth + ) + ); + } + } + } + } +} + +==> b022 <== + # Same as Bug 96 + # State 1 + push( @loop_data, + \%subfield_data ); + + build_tabs( + $template, + $record, + $dbh, + $encoding + ); + + # State 2 + push( @loop_data, + \%subfield_data ); + + build_tabs( + $template, + $record, + $dbh, + $encoding + ); + +==> b023 <== + # same as Bug96 + # State 1 + my ( $oldbibid, $oldauthor, + $oldtitle ); + + my ( $dbh, $tags, + $and_or, $operator, + $value ) + = @_; + + # State 2 + + my ( $oldbibid, $oldauthor, + $oldtitle ); + + my ( $dbh, $tags, + $and_or, $operator, + $value ) + = @_; + + +==> b024 <== + # State 1 + my@bind_values= + ($authid,$tag,$subfieldcode ); + + # State 2 + my@bind_values= + ($authid,$tag,$subfieldcode ); + +==> b026 <== + my ( $nowaiting, $itemswaiting )= + CheckWaiting ( + $patroninformation->{ + 'borrowernumber'} ) ; + + my ( $nowaiting, $itemswaiting )= + CheckWaiting ( + $patroninformation->{ + 'borrowernumber'} ) ; + + +==> b027 <== + # State 1 + + return ( + $dotransfer, + $messages, + $iteminformation + ); + + # State 2 + + return ( + $dotransfer, + $messages, + $iteminformation + ); + + +==> b028 <== + # State 1 + + my $response = + showmessage( getmessage( 'ConfirmPerlExecutableSymlink', $realperl ), + 'yn', 'y', 1 ) ; + + # State2 + + my $response = showmessage( + getmessage( + 'ConfirmPerlExecutableSymlink', + $realperl + ), + 'yn', 'y', 1 + ) ; + +==> b031 <== +# Fixed with same fix as for Bug96, level of spaces created in +# sub store_token_and_space +# State 1 +my %fielddefinitions = ( + printers => [ + { field => 'printername', type => 'char(40)', null => '', key => 'PRI', + default => '' }, + ], +); + +# State 2 + +my %fielddefinitions = ( + printers => [ + { field => 'printername', type => 'char(40)', null => '', key => 'PRI', + default => '' }, + ], +); + +==> b033 <== + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + +==> b034 <== +# Same as Bug96 +# State 1: +{ + my $xml = + MARC::File::XML::header( C4::Context->preference('TemplateEncoding'), + C4::Context->preference('marcflavour') ) ; +} + +{ + { + { + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + } + } +} + +############################################## + +# State 2 + +{ + my $xml = MARC::File::XML::header( + C4::Context->preference( + 'TemplateEncoding'), + C4::Context->preference('marcflavour') + ) ; +} + +{ + { + { + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + } + } +} + +==> b035 <== +# state 1 +my @frames + = ( + 0, 1, 2 + ); + +# state 2 + +my @frames + = ( + 0, 1, 2 + ); + + +==> b036 <== +# This can be fixed with the modified list definition (2 commas, or 1 comma and 2 fat commas) +# State 1 + ( + $seqname, + $aln_line + ) + = ( $1, + $2 ); + + # State 2 + + ( + $seqname, + $aln_line + ) + = ( $1, + $2 ); + + +==> b037 <== + # State 1 + print p, +"This program also illustrates the power of ", + a( + { + -href =>'http://www.BioPerl.org/' + }, + "BioPerl" + ), + c; + + # State 2 + print p, +"This program also illustrates the power of ", + a( + { + -href =>'http://www.BioPerl.org/' + }, + "BioPerl" + ), + c; + + +==> b042 <== +# State 1 +my @params + = + + ( +'quiet' + => + 1) + ; + +# State 2 +my @params + = + + ( +'quiet' + => + 1) + ; + +==> b044 <== +# Same as bug96 + + # State 1 + + my ( $self, + $sf, + $locstr ) + = @_; + + push( @ret, + @subfth ); + + # state 2 + + my ( $self, + $sf, + $locstr ) + = @_; + + push( @ret, + @subfth ); + +==> b047 <== +my $example2values + = [ + 7, 9, + 25 + ]; + +my $example2values + = [ + 7, 9, + 25 + ]; + + +==> b048 <== +BEGIN { + *$func = + sub { + my ( $self, + $value ) + = @_; + } +} + +BEGIN { + *$func = + sub { + my ( $self, + $value ) + = @_; + } +} + +==> b049 <== + my ( $i, + $len, + $output ) + = ( 0, 0, + '' ); + + my ( $i, + $len, + $output ) + = ( 0, 0, + '' ); + +==> b050 <== + # State 1 + my@organell_names= + ("chloroplast","mitochondr"); + + # State 2 + my@organell_names= + ("chloroplast","mitochondr" ); + +==> b051 <== +# state 1 +@args = ( + '/usr/bin/compress', '-f', $fileName +); + +# state 2 +@args = ( + '/usr/bin/compress', '-f', $fileName +); + +==> b054 <== +my ( + $mchar, + $schar, + $qchar ); +while ( + $mchar = + chop( + $seqString) ) +{ + ( $qchar, + $schar ) + = ( + chop($qseq), + chop($sseq) + ); +} + +==> b055 <== + # Same as Bug96 + # State 1 + $seq = substr( + $self->seq_str ('match'), + $beg - $start, + ( $end - $beg ) + ); + + # State 2 + $seq = substr( + $self->seq_str ('match'), + $beg - $start, + ( $end - $beg ) + ); + +==> b057 <== +# State 1 +@TypeUnivAln= + ('unknown','dna','rna','amino','otherseq'); + +# State 2 +@TypeUnivAln= + ('unknown','dna','rna','amino','otherseq' ); + +==> b058 <== + # Same as bug 96 + # State 1 + $Blast->throw( "Not a function reference: $func", + "The -filt_func parameter must be function reference." + ) ; + + # State 2 + $Blast->throw( "Not a function reference: $func", + "The -filt_func parameter must be function reference." + ) ; + + +==> b062 <== +@hits = ( + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 7710 +) ; + +==> b064 <== +# State 1 + +sub bb { + for ( my $i = + $first, + my $j = + 0 ; + $i <= + $last ; + ) + { + ...; + } +} + +# State 2 (changed sub name to avoid perltidy message) + +sub bB { + for ( my $i = + $first, + my $j = + 0 ; + $i <= + $last ; + ) + { + ...; + } +} +__END__ + +==> b068 <== + # State 1 + for ($r[0]=0, + my $i + = 1 + ; + $i<= + $k; + $i++) + + # State 2 + for ( + $r[0] + = 0, + my $i + = 1 + ; + $i<= + $k; + $i++) + +==> b069 <== +return + map { + ( + $x[$_], + $y[$_] + ) + } 0 + .. $#h; + +return + map { + ( + $x[$_], + $y[$_] + ) + } 0 + .. $#h; + +==> b071 <== +my ( $lo_val, $hi_val ) = + +( &{$func}($lo_guess), + &{$func}($hi_guess) ); + +my ( $lo_val, $hi_val ) = + +( &{$func}($lo_guess), + &{$func}($hi_guess) ); + +==> b075 <== + $sq->prepend ( + $cu->first->remove ($three) + ); + + $sq->prepend ( + $cu->first->remove ($three) + ); + +==> b077 <== +# state 1 + +{ + my $S + = { + G => + $G + }; +} + +# State 2 + +{ + my $S + = { + G => + $G + }; +} + +==> b085 <== + push @ARGV2 => + [ $dir, $intermediate++ ]; + + push @ARGV2 => + [ $dir, $intermediate++ ]; + + +==> b090 <== +# State 1 + +my $rows = +{ + 1 => [ 1, 2, 3 ], + 2 => [ 4, 5, 6 ], + 3 => [ 7, 8, 9 ], + 4 => [ 10, 11, 12 ], +}; + +# State 2 + +my $rows = +{ + 1 => [ 1, 2, 3 ], + 2 => [ 4, 5, 6 ], + 3 => [ 7, 8, 9 ], + 4 => [ 10, 11, 12 ], +}; + +==> b1002 <== + @cmd= + ( + MIME::Base64::encode_base64( + defined $token + ? $token + : '', + '' ) ); + +==> b1003 <== +is( + $CALC->_str( + $CALC->_from_hex( + $CALC->_as_hex( + $CALC->_new("128") + ) + ) + ), + 128, + qq|$CALC->_str($CALC->_from_hex($CALC->_as_hex(| + . qq|$CALC->_new("128")))) = 128| +); + +is( + $CALC->_str( + $CALC->_from_hex( + $CALC->_as_hex( + $CALC->_new("128") + ) + ) + ), + 128, + qq|$CALC->_str($CALC->_from_hex($CALC->_as_hex(| + . qq|$CALC->_new("128")))) = 128| +); + +==> b1004 <== + @cmd= + ( + MIME::Base64::encode_base64( + $str, '' ) ); + + @cmd= + ( + MIME::Base64::encode_base64( + $str, '' ) ); + +==> b1005 <== + # S1 + $x= + &{$C + ."::__strip_zeros" + } + ([0,1,2,0,0,0]); + + # S2 + $x= + &{$C + ."::__strip_zeros" + } + ([0,1,2,0,0,0]); + +==> b1006 <== +# S1 + +is( + $CALC->_str( + scalar( + $CALC + ->_div + ( + $x,$y) + )), + 3, +qq|$CALC->_str(scalar($CALC->_div(\$x, \$y))) = 3| +); + +# S2 + +is( + $CALC->_str( + scalar( + $CALC + ->_div + ( + $x,$y) + )), + 3, +qq|$CALC->_str(scalar($CALC->_div(\$x, \$y))) = 3| +); + + +==> b1007 <== + # S1 + $wrapper_pkg= + undef + if( + exists( + $reusable_builtins{ + $call + } + )) ; + + # S2 + + $wrapper_pkg= + undef + if( + exists( + $reusable_builtins{ + $call + } + )) ; + +==> b1008 <== + # Use test.pro.bak + + # S1 + unless( + get_cache( + $Dircache, + \@Podpath, + $Podroot, + $Recurse + )) + + # S2 + unless( + get_cache( + $Dircache, + \@Podpath, + $Podroot, + $Recurse + )) + +==> b1009 <== + # S1 + + $hub->listen( + sub{ + push + @events + => + $_ + [ + 1 + ] + ; + } + ); + + # S2 + $hub->listen( + sub{ + push + @events + => + $_ + [ + 1 + ] + ; + } + ); + + +==> b1010 <== + unless( + run( + command=> + $cmd, + buffer=> + \ + $head, + verbose=> + $DEBUG + )) + + # S2 + unless( + run( + command=> + $cmd, + buffer=> + \ + $head, + verbose=> + $DEBUG + )) + +==> b1011 <== + # S1 + $hub->listen( + sub{ + push + @$subevents + => + $_ + [ + 1 + ] + ; + } + ); + + # S2 + $hub->listen( + sub{ + push + @$subevents + => + $_ + [ + 1 + ] + ; + } + ); + +==> b1012 <== + if ( + length( + int( + $yorg + -> + [ + -1 + ] + ) + ) > + length( + int( + $x + -> + [ + -1 + ] + ) + )) + + # + if ( + length( + int( + $yorg + -> + [ + -1 + ] + ) + )> + length( + int( + $x + -> + [ + -1 + ] + ) + )) + + +==> b1013 <== + if ( eval + { + require + POSIX + ; + } + ) + +__END__ +# S2 + + if ( eval + { + require + POSIX + ; + } + ) + +==> b1014 <== + # S1 + for my $f ( + Archive::Tar->list_archive ( + $perl->{source} + ) + ) + +__END__ +# S2 + for + my $f ( + Archive::Tar->list_archive ( + $perl->{source} ) ) + + +==> b1016 <== +# S1 +return $dir eq File::Spec->rootdir ? + File::Spec->catpath ( $vol, $dir, + $file ) : + fast_abs_path ( + File::Spec->catpath ( + $vol, $dir, '' + ) + ) . + '/' . + $file; + +# S2 + +return $dir eq File::Spec->rootdir ? + File::Spec->catpath ( $vol, $dir, + $file ) : + fast_abs_path ( + File::Spec->catpath ( + $vol, $dir, '' + ) + ) . + '/' . + $file; + +==> b1017 <== + # S1 + $res .=chr( + utf8::unicode_to_native( + ord(substr($str, $i, + 1))) + ); + + # S2 + $res .=chr( + utf8::unicode_to_native( + ord(substr($str, $i, + 1))) + ); + + +==> b1018 <== +# S1 +foreach + my $table + ( + ('borrowers', + 'items', + 'biblio', +'biblioitems' + ) + ) +__END__ +# S2 +foreach my $table( + ( +'borrowers', + 'items', + 'biblio', +'biblioitems' + ) + ) + +==> b1019 <== +# S1: welded but no equals break; this has length 70 +my ( $template, $borrowernumber, $cookie ) = + get_template_and_user ( { + template_name => "opac-sendbasketform.tmpl", + query => $query, + type => "opac", + authnotrequired => 1, + flagsrequired => { borrow => 1 }, + } ); + +# S2: Equals break, not welded. This welds but also removes the = break +# So we want to keep the = break if we make a weld +my ( $template, $borrowernumber, $cookie ) = + get_template_and_user ( { + template_name => "opac-sendbasketform.tmpl", + query => $query, + type => "opac", + authnotrequired => 1, + flagsrequired => { borrow => 1 }, + } ); + +==> b1020 <== +# S1 +{ + return(self->_testStrand($other,$so)and not(( + $self->start()>$other->end() + or$self->end()<$other->start() + )) + ); +} + +# S2 +{ + return(self->_testStrand($other,$so) + and not( + ( $self->start()>$other->end() + or$self->end()<$other->start() + ) + ) + ); +} + +==> b1021 <== +# S1 +$self->{LIBS} = + ['-lndbm', + -e "/usr/lib/libdbm.nfs.a" ? '-ldbm.nfs' : '-ldbm'] ; + +$self->{LIBS} = + ['-lndbm', + -e "/usr/lib/libdbm.nfs.a" ? '-ldbm.nfs' : '-ldbm'] ; + +==> b1022 <== +# State 1: This should stay static +use Test::Requires { + 'MooseX::MarkAsMethods' => 0, +}; + +# State 2: +use Test::Requires { + 'MooseX::MarkAsMethods' => 0, +}; + +==> b1024 <== +# S1 +my%fielddefinitions=( + z3950servers=> + [ + {field=>'id',type=>'int(11)',null=>'',key=>'PRI',default=>'',extra=>'auto_increment' + }, + ], + +); + +# S2 +my%fielddefinitions=( + z3950servers=> + [ + {field=>'id',type=>'int(11)',null=>'',key=>'PRI',default=>'',extra=>'auto_increment' + }, + ], + +); + +==> b1025 <== +# S1 +use Test::Requires { + 'DateTime' => + '0', }; + +# S2 +use Test::Requires { + 'DateTime' => + '0', }; + +==> b1026 <== +# S1 +use Test::Requires { + 'Locale::US' => + '0', + 'Regexp::Common' + => '0', +}; + +# S2 +use Test::Requires { + 'Locale::US' => + '0', + 'Regexp::Common' + => '0', +}; + +==> b1027 <== +use Test::Requires { + 'Locale::US' => + '0', + 'Regexp::Common' + => '0', +}; + + +==> b1028 <== +use Test::Requires { + 'DBM::Deep' => +'1.0003', +'DateTime::Format::MySQL' + => '0', +}; + + +==> b1029 <== +# S1 +use Test::Requires { + 'Archive::Zip' => + 0, +'Test::DependentModules' + => '0.13', + 'MetaCPAN::API' + => '0.33', +}; + +use Test::Requires { + 'Archive::Zip' => + 0, +'Test::DependentModules' + => '0.13', + 'MetaCPAN::API' + => '0.33', +}; + + +==> b103 <== + # State 1 + my @tail = ( + @buf[ ( $i % ( -$p ) + 1 ) + .. $#buf ], + @buf[ 0 .. $i % ( -$p ) ] + ); + + # State 2 + my @tail = ( + @buf[ ( $i % ( -$p ) + 1 ) + .. $#buf ], + @buf[ 0 .. $i % ( -$p ) ] + ); + +==> b1030 <== +use Test::Requires { + 'Types::Standard' => + 0.021_03 }; + +use Test::Requires { + 'Types::Standard' => + 0.021_03 }; + +==> b1031 <== +# S1 +@EXPORT + =(&INVALID_BOOLEAN_STRING_EXCEPTION + ); + +# S2 +@EXPORT + =(&INVALID_BOOLEAN_STRING_EXCEPTION + ); + +==> b1032 <== + $a=1 + if( + ( defined( + $seq + [$current]) + ) + &&( $seq[$current] + ->annotation + ->each_Comment) + ); + + $a=1 + if( + ( defined( + $seq + [$current]) + ) + &&( $seq[$current] + ->annotation + ->each_Comment) + ); + + $a=1 + if( + ( defined( + $seq + [$current]) + ) + &&( $seq[$current] + ->annotation + ->each_Comment) + ); + +==> b1033 <== +# S1 +my @names = + ( + qw(HV_DELETE HV_DISABLE_UVAR_XKEY HV_FETCH_ISSTORE + HV_FETCH_ISEXISTS HV_FETCH_LVALUE HV_FETCH_JUST_SV + G_SCALAR G_ARRAY G_VOID G_DISCARD G_EVAL G_NOARGS + G_KEEPERR G_NODEBUG G_METHOD G_FAKINGEVAL + GV_NOADD_NOINIT + IS_NUMBER_IN_UV IS_NUMBER_GREATER_THAN_UV_MAX + IS_NUMBER_NOT_INT IS_NUMBER_NEG IS_NUMBER_INFINITY + IS_NUMBER_NAN IS_NUMBER_TRAILING PERL_SCAN_TRAILING + PERL_LOADMOD_DENY PERL_LOADMOD_NOIMPORT PERL_LOADMOD_IMPORT_OPS + ), + { name => "G_WANT", default => [ "IV", "G_ARRAY|G_VOID" ] } + ); + +# S2 +my @names = + ( + qw(HV_DELETE HV_DISABLE_UVAR_XKEY HV_FETCH_ISSTORE + HV_FETCH_ISEXISTS HV_FETCH_LVALUE HV_FETCH_JUST_SV + G_SCALAR G_ARRAY G_VOID G_DISCARD G_EVAL G_NOARGS + G_KEEPERR G_NODEBUG G_METHOD G_FAKINGEVAL + GV_NOADD_NOINIT + IS_NUMBER_IN_UV IS_NUMBER_GREATER_THAN_UV_MAX + IS_NUMBER_NOT_INT IS_NUMBER_NEG IS_NUMBER_INFINITY + IS_NUMBER_NAN IS_NUMBER_TRAILING PERL_SCAN_TRAILING + PERL_LOADMOD_DENY PERL_LOADMOD_NOIMPORT PERL_LOADMOD_IMPORT_OPS + ), + { name => "G_WANT", default => [ "IV", "G_ARRAY|G_VOID" ] } + ); + +==> b1034 <== + # S1 + $record = + MARChtml2marc( + $dbh, \@tags, + \@subfields, \@values, + \@firstsubfields, \@indicator, + \@ind_tag + ); + + # S2 + $record = + MARChtml2marc( + $dbh, \@tags, + \@subfields, \@values, + \@firstsubfields, \@indicator, + \@ind_tag + ); + +==> b1035 <== +push @moreopts, + INSTALLDIRS => + ( ( $] >= 5.005 and $] < 5.011 ) ? 'perl' : + 'site' ) ; + +push @moreopts, + INSTALLDIRS => + ( ( $] >= 5.005 and $] < 5.011 ) ? 'perl' : + 'site' ) ; + + +==> b1036 <== + # State 1 + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + + # State 2 + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + +==> b1036a <== + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + +==> b1037 <== +# s1 +my @cases = + ( + [ 'Thwack', 'package Thwack; XSLoader::load(); 1' ], + [ 'Zlott', 'package Thwack; XSLoader::load("Zlott"); 1' ], + ); + +# s2 +my @cases = + ( + [ 'Thwack', 'package Thwack; XSLoader::load(); 1' ], + [ 'Zlott', 'package Thwack; XSLoader::load("Zlott"); 1' ], + ); + +==> b1038 <== + # S1 + @_ = + ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + + # S2 + @_ = + ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + + +==> b1039 <== +# S1 +Moose::Exporter + ->setup_import_methods + ( + as_is=>[qw( + type subtype class_type role_type maybe_type duck_type + as where message inline_as + coerce from via + enum union + find_type_constraint + register_type_constraint + match_on_type ) + ], + ); + +# S2 +Moose::Exporter + ->setup_import_methods + ( + as_is=>[qw( + type subtype class_type role_type maybe_type duck_type + as where message inline_as + coerce from via + enum union + find_type_constraint + register_type_constraint + match_on_type ) + ], + ); + +==> b1040 <== + # S1 + my $testport = + ( Socket::unpack_sockaddr_in6 $testserver + ->sockname )[0] ; + + # S2 + my $testport = + ( Socket::unpack_sockaddr_in6 $testserver + ->sockname )[0] ; + +==> b1041 <== + # S1 + $host + =(split + ( /[:. ]/, +`/com/host`, + 6 + )) + [0]; + + # S2 + $host + =(split + ( /[:. ]/, +`/com/host`, + 6 + )) + [0]; + + +==> b1042 <== + # S1 + @_ = + ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + + # S2 + @_ = + ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + +==> b1043 <== + # S1 + my $addr =( + DynaLoader::dl_find_symbol($handle,uc $prefix.$name) + ||DynaLoader::dl_find_symbol( + $handle, $prefix.$name + ) + ); + + # S2 + + my $addr =( + DynaLoader::dl_find_symbol($handle,uc $prefix.$name) + ||DynaLoader::dl_find_symbol( + $handle, $prefix.$name + ) + ); + +==> b1044 <== +# S1 +my @names = + ( + qw( + AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT + UIO_MAXIOV + ), + {name=>"IPPROTO_IP",type=>"IV",default=>["IV", 0]}, + {name=>"IPPROTO_IPV6",type=>"IV",default=>["IV", 41]}, + ); + +my @names = + ( + qw( + AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT + UIO_MAXIOV + ), + {name=>"IPPROTO_IP",type=>"IV",default=>["IV", 0]}, + {name=>"IPPROTO_IPV6",type=>"IV",default=>["IV", 41]}, + ); + +==> b1045 <== +# S1 +my @bodies = + ( + + ['f99', 1, 1, 0,qr/^$/,], + ['$x=', 0, 0, 0,qr/syntax error/,], + ); + +# S2 +my @bodies = + ( + + ['f99', 1, 1, 0,qr/^$/,], + ['$x=', 0, 0, 0,qr/syntax error/,], + ); + +==> b1046 <== +# S1 +my @boolfunc = + ( + {name => "Exclusion",type => "bool",hash => \%Exclus,}, + {name => "Singleton",type => "bool",hash => \%Single,}, + {name => "NonStDecomp",type => "bool",hash => \%NonStD,}, + ); + +# S2 +my @boolfunc = + ( + {name => "Exclusion",type => "bool",hash => \%Exclus,}, + {name => "Singleton",type => "bool",hash => \%Single,}, + {name => "NonStDecomp",type => "bool",hash => \%NonStD,}, + ); + +==> b1047 <== + # S1 + @GZIP_OS_Names = + ( + [ '' => 0, 'MS-DOS' ], + [ 'amigaos' => 1, 'Amiga' ], + [ 'VMS' => 2, 'VMS' ], + [ '' => 3, 'Unix/Default' ], + [ '' => 4, 'VM/CMS' ], + [ '' => 5, 'Atari TOS' ], + [ 'os2' => 6, 'HPFS (OS/2, NT)' ], + [ 'MacOS' => 7, 'Macintosh' ], + [ '' => 8, 'Z-System' ], + [ '' => 9, 'CP/M' ], + [ '' => 10, 'TOPS-20' ], + [ '' => 11, 'NTFS (NT)' ], + [ '' => 12, 'SMS QDOS' ], + [ '' => 13, 'Acorn RISCOS' ], + [ 'MSWin32' => 14, 'VFAT file system (Win95, NT)' ], + [ '' => 15, 'MVS' ], + [ 'beos' => 16, 'BeOS' ], + [ '' => 17, 'Tandem/NSK' ], + [ '' => 18, 'THEOS' ], + [ '' => 255, 'Unknown OS' ], + ); + + # S2 + @GZIP_OS_Names = + ( + [ '' => 0, 'MS-DOS' ], + [ 'amigaos' => 1, 'Amiga' ], + [ 'VMS' => 2, 'VMS' ], + [ '' => 3, 'Unix/Default' ], + [ '' => 4, 'VM/CMS' ], + [ '' => 5, 'Atari TOS' ], + [ 'os2' => 6, 'HPFS (OS/2, NT)' ], + [ 'MacOS' => 7, 'Macintosh' ], + [ '' => 8, 'Z-System' ], + [ '' => 9, 'CP/M' ], + [ '' => 10, 'TOPS-20' ], + [ '' => 11, 'NTFS (NT)' ], + [ '' => 12, 'SMS QDOS' ], + [ '' => 13, 'Acorn RISCOS' ], + [ 'MSWin32' => 14, 'VFAT file system (Win95, NT)' ], + [ '' => 15, 'MVS' ], + [ 'beos' => 16, 'BeOS' ], + [ '' => 17, 'Tandem/NSK' ], + [ '' => 18, 'THEOS' ], + [ '' => 255, 'Unknown OS' ], + ); + +==> b1048 <== + # S1 + $titles + .= ( $timestamp + ? format_date($timestamp) + : "" ) + . ";"; + + # S2 + $titles + .= ( $timestamp + ? format_date($timestamp) + : "" ) + . ";"; + +==> b1049 <== + # s1 + $link.= + ( + $link?'/':'') + .'"' + .$node + .'"'; + + # S2 + + $link.= + ( + $link?'/':'') + .'"' + .$node + .'"'; + +==> b1050 <== + #s1 + $uidl + =( + $me->message + =~/\d+\s+([\041-\176]+)/ + )[0]; + + # s2 + $uidl + =( + $me->message + =~/\d+\s+([\041-\176]+)/ + )[0]; + + +==> b1051 <== + my @records= + ( + {separator => '0',effective => '',text => 'ab'}, + {separator => ';',effective => ';',text => 'a;b'}, + ) ; + + my @records= + ( + {separator => '0',effective => '',text => 'ab'}, + {separator => ';',effective => ';',text => 'a;b'}, + ) ; + +==> b1052 <== + # S1 + my ( $lname, $sname ) = ( + $subname, + substr( $subname, 0, + $maxflen - 3 ) + ); + + #S2 + my ( $lname, $sname ) = ( + $subname, + substr( $subname, 0, + $maxflen - 3 ) + ); + + my ( $lname, $sname ) = ( + $subname, + substr( $subname, 0, + $maxflen - 3 ) + ); + +==> b1053 <== + $_++ + foreach + sub : + lvalue { + %h = + ( $x, + $x ); + } + ->(); + + $_++ + foreach + sub : + lvalue { + %h = + ( $x, + $x ); + } + ->(); + +==> b1054 <== + # S1 + $all_passed + &= is( $fastc, $fastr, + "right col tag should be bottom row tag" ) ; + + #S2 + $all_passed + &= is( $fastc, $fastr, + "right col tag should be bottom row tag" ) ; + + $all_passed + &= is( $fastc, $fastr, + "right col tag should be bottom row tag" ) ; + +==> b1055 <== + # S1 + my @tests = + ( [$x], + [ [ [ +"aa", +"b", +"c" + ] + ] + => "SubField must have two parts" + ], + ); + + # S2 + my @tests = + ( [$x], + [ [ [ +"aa", +"b", +"c" + ] + ] + => "SubField must have two parts" + ], + ); + +==> b1056 <== + # S1 + my$nt= + ( + $^O eq 'os2' + ? + '' + :'not'); + + #S2 + my$nt= + ( + $^O eq 'os2' + ? + '' + :'not'); + +==> b1057 <== + # S1 + is_deeply( [ [ OUT_STD, "Bail out! foo bar baz\n" ] ], + ); + + # S2 + is_deeply( [ [ OUT_STD, "Bail out! foo bar baz\n" ] ], + ); + +==> b1057a <== + is_deeply( + [ + $it->halt_tap( + {control => {details => 0}} + ) + ], + [[OUT_STD, "Bail out! 0\n"]], + "falsy details" + ); + + is_deeply( + [ + $it->halt_tap( + {control => {details => 0}} + ) + ], + [[OUT_STD, "Bail out! 0\n"]], + "falsy details" + ); + +==> b1058 <== +# S1 +like ( + exception { + $params->parameterized ( + { + a => 'Hello', + b => 'World' + } ); + }, +); + +#S2 +like ( + exception { + $params->parameterized ( + { + a => 'Hello', + b => 'World' + } ); + }, +); + +==> b1059 <== + # S1 + my($got)= + ParseParameters( + 0, + { + 'bufsize'=> + [IO::Compress::Base::Common::Parse_unsigned,4096], + 'windowbits'=> + [IO::Compress::Base::Common::Parse_signed,MAX_WBITS()], + 'dictionary'=>[IO::Compress::Base::Common::Parse_any,""], + }, + @_ + ); + + # S2 + + my($got)= + ParseParameters( + 0, + { + 'bufsize'=> + [IO::Compress::Base::Common::Parse_unsigned,4096], + 'windowbits'=> + [IO::Compress::Base::Common::Parse_signed,MAX_WBITS()], + 'dictionary'=>[IO::Compress::Base::Common::Parse_any,""], + }, + @_ + ); + +==> b106 <== + # State 1 + my @tail = + ( + @buf[ ( $i % ( -$p ) + + 1 ) + .. $#buf ], + @buf[ 0 .. $i % ( -$p ) + ] ); + + # State 2 + my @tail = ( + @buf[ ( $i % ( -$p ) + + 1 ) + .. $#buf ], + @buf[ 0 .. $i % ( -$p ) + ] ); + +==> b1060 <== +# S1 +my $lxy = ( @$cx - @$cy ) || + ( + length( int( $cx->[-1] ) ) - + length( int( $cy->[-1] ) ) ); + +# S2 +my $lxy = ( @$cx - @$cy ) || + ( + length( int( $cx->[-1] ) ) - + length( int( $cy->[-1] ) ) ); + +==> b1061 <== +# S1 +my @subnormals = + ( + [ '1e-320', '%a', '0x1.fap-1064' ], + [ '3e-324', '%.1a', '0x1.0p-1074' ], + [ + '0x1.fffffffffffffp-1022', '%a', + '0x1.fffffffffffffp-1022' + ], + [ + '0x0.fffffffffffffp-1022', '%a', + '0x1.ffffffffffffep-1023' + ], + [ + '0x0.7ffffffffffffp-1022', '%a', + '0x1.ffffffffffffcp-1024' + ], + [ + '0x0.3ffffffffffffp-1022', '%a', + '0x1.ffffffffffff8p-1025' + ], + [ + '0x0.1ffffffffffffp-1022', '%a', + '0x1.ffffffffffffp-1026' + ], + [ + '0x0.0ffffffffffffp-1022', '%a', + '0x1.fffffffffffep-1027' + ], + ); + +# S2 +my @subnormals = + ( + [ '1e-320', '%a', '0x1.fap-1064' ], + [ '3e-324', '%.1a', '0x1.0p-1074' ], + [ + '0x1.fffffffffffffp-1022', '%a', + '0x1.fffffffffffffp-1022' + ], + [ + '0x0.fffffffffffffp-1022', '%a', + '0x1.ffffffffffffep-1023' + ], + [ + '0x0.7ffffffffffffp-1022', '%a', + '0x1.ffffffffffffcp-1024' + ], + [ + '0x0.3ffffffffffffp-1022', '%a', + '0x1.ffffffffffff8p-1025' + ], + [ + '0x0.1ffffffffffffp-1022', '%a', + '0x1.ffffffffffffp-1026' + ], + [ + '0x0.0ffffffffffffp-1022', '%a', + '0x1.fffffffffffep-1027' + ], + ); + +==> b1062 <== + # S1 + my $search_re = + ( $self->opt_f =~ + /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/ ) + ? '(?:I<)?-X' + : quotemeta( $self->opt_f ); + + # S2 + my $search_re = + ( $self->opt_f =~ + /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/ ) + ? '(?:I<)?-X' + : quotemeta( $self->opt_f ); + +==> b1063 <== + # S1 + my ($got) = + ParseParameters( + 0, + { + 'bufsize' => + [ IO::Compress::Base::Common::Parse_unsigned, 4096 ], + 'windowbits' => [ + IO::Compress::Base::Common::Parse_signed, + MAX_WBITS() + ], + 'dictionary' => + [ IO::Compress::Base::Common::Parse_any, "" ], + }, + @_ + ); + + # S2 + my ($got) = + ParseParameters( + 0, + { + 'bufsize' => + [ IO::Compress::Base::Common::Parse_unsigned, 4096 ], + 'windowbits' => [ + IO::Compress::Base::Common::Parse_signed, + MAX_WBITS() + ], + 'dictionary' => + [ IO::Compress::Base::Common::Parse_any, "" ], + }, + @_ + ); + +==> b1064 <== + # S1 + is_deeply( + [[OUT_STD, "ok 1 - bob\n"]], + "Parent (un-buffered)", + ); + + # S2 + is_deeply( + [[OUT_STD, "ok 1 - bob\n"]], + "Parent (un-buffered)", + ); + +==> b1065 <== +# S1: +sub VerifyData + { + + my $hashref + = shift; + if ( !ok( keys + ( %bad + ) + + + keys + ( %expected + ) + == + 0 + , +"Expected == Actual" + ) + ) + { + my $bad + = +"Expected does not match actual\n"; + } + } + +# S2: (changed name to avoid error message) +sub VerifyDatA + { + + my $hashref + = shift; + if ( !ok( keys + ( %bad + ) + + + keys + ( %expected + ) + == + 0 + , +"Expected == Actual" + ) + ) + { + my $bad + = +"Expected does not match actual\n"; + } + } + +==> b1066 <== + my ($seq, + $id, + $acc, + $pid, + $desc, + $moltype, + $given_id, + $is_reference, + $repeat_unit, + $repeat_count + ) + = $self + ->_rearrange + ([ + qw(SEQ + DISPLAY_ID + ACCESSION_NUMBER + PRIMARY_ID + DESC + MOLTYPE + ID + IS_REFERENCE + REPEAT_UNIT + REPEAT_COUNT + ) + ], + @args + ); + +==> b1067 <== + ( + $var1, + + ) = + $self + ->_rearrange + ( [ + qw(FH + ROUND + ) + ], + @args + ); + +==> b1068 <== +# S1 +my @testsubs = + ( + sub { + like ( $@, + qr/locate object method/ ); + }, + sub { +'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; + }, + ); + +# S2 +my @testsubs = + ( + sub { + like ( $@, + qr/locate object method/ ); + }, + sub { +'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; + }, + ); + +==> b1069 <== + # S1 + my $res = [ + _process_typemaps( + [@local_tmaps], + '.' ) + ]; + + # S2 + my $res = [ + _process_typemaps( + [@local_tmaps], + '.' ) + ]; + +==> b1070 <== + # S1 + my $res = [ + _process_typemaps( + [@local_tmaps], '.' ) + ]; + + # S2 + my $res = [ + _process_typemaps( + [@local_tmaps], '.' ) + ]; + +==> b1071 <== + # S1 + my ($seq,) = + $self + ->_rearrange + ([ + qw(SEQ + SEQORI + ) + ], + @args + ); + + # S2 + my ($seq,) = + $self + ->_rearrange + ([ + qw(SEQ + SEQORI + ) + ], + @args + ); + +==> b1072 <== +%XS_TypeSet = + ( + IV => '*iv_return = ', + UV => '*iv_return = (IV)', + NV => '*nv_return = ', + PV => '*pv_return = ', + PVN => [ + '*pv_return = ', + '*iv_return = (IV)' + ], + SV => '*sv_return = ', + YES => undef, + NO => undef, + UNDEF => undef, + ); + +%XS_TypeSet = + ( + IV => '*iv_return = ', + UV => '*iv_return = (IV)', + NV => '*nv_return = ', + PV => '*pv_return = ', + PVN => [ + '*pv_return = ', + '*iv_return = (IV)' + ], + SV => '*sv_return = ', + YES => undef, + NO => undef, + UNDEF => undef, + ); + +==> b1073 <== +# Keeps adding a blank line!! + sub stop { + + + 1; + } + + sub start { + + + 1; + } + + +==> b1074 <== + ( + $PhoneDateLog, + $PhoneTimeLog, + $PhoneNameLog, + $PhoneNumberLog + ) + = ( + split('`', + $CallLogTempLine + ))[ 0, 1, + 2, 3 ]; + +==> b1075 <== + my (@to_push) + = ( + split(/\|/, + $_[FILE_NAME]) + ) + [@push_inx + ]; + + my (@to_push) + = ( + split(/\|/, + $_[FILE_NAME]) + ) + [@push_inx + ]; + + +==> b1076 <== +$Locale::Codes::Retired{'langext'}{'alpha'} + {'name'} = + { + q(hawai'i pidgin sign language) => [ + q(hps), q(Hawai'i Pidgin Sign Language) + ], + q(rennellese sign language) => + [ q(rsi), q(Rennellese Sign Language) ], + q(yiddish sign language) => + [ q(yds), q(Yiddish Sign Language) ], + }; + +$Locale::Codes::Retired{'langext'}{'alpha'} + {'name'} = + { + q(hawai'i pidgin sign language) => [ + q(hps), q(Hawai'i Pidgin Sign Language) + ], + q(rennellese sign language) => + [ q(rsi), q(Rennellese Sign Language) ], + q(yiddish sign language) => + [ q(yds), q(Yiddish Sign Language) ], + }; + +==> b1077 <== + foreach + my $key( + sort(keys(%{$self->{data}})) + ) +__END__ + + foreach my $key( + sort( + keys(%{$self->{data}})) + ) + + +==> b1078 <== +if ( not ( + ok scalar ( + grep { ref $_ and $_->can ('type') } + @t ) => 16 ) ) + + if ( not ( + ok scalar ( + grep { ref $_ and $_->can ('type') } + @t ) => 16 ) ) + +==> b1079 <== + my ( $id, + $sysname, + $aa_mut ) + = $self + ->_rearrange + ( [ + qw(ID + AA_MUT + ) + ], + @args + ); + + my ( $id, + $sysname, + $aa_mut ) + = $self + ->_rearrange + ( [ + qw(ID + AA_MUT + ) + ], + @args + ); + + +==> b1080 <== + my ($seq, + $id, + ) + = $self + ->_rearrange + ([ + qw(SEQ + ID + ) + ], + @args + ); + +==> b1081 <== + @apple_encs + = ( + <<'EOT', +M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL +EOT + undef, + <<'EOT', +M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8 +EOT + ); + + @apple_encs + = ( + <<'EOT', +M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL +EOT + undef, + <<'EOT', +M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8 +EOT + ); + +==> b1082 <== + return map{ + ($_,[$self->$_(@_[1..$#_])]) + }@every; + + return map{ + ($_,[$self->$_(@_[1..$#_])]) + }@every; + +==> b1083 <== + $replaced_okay = + ( + $path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s ); + + $replaced_okay = + ( + $path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s ); + +==> b1084 <== + my ($RANGE, + $LHS, + $TYPE, + $RHS) + = ( + split(/\s+/, + $GENERATE)) + [ 1 .. 4 + ]; + + my ($RANGE, + $LHS, + $TYPE, + $RHS) + = ( + split(/\s+/, + $GENERATE)) + [ 1 .. 4 + ]; + +==> b1085 <== +$term = + Tgetent + Term::Cap + { + 'TERM' => '', + 'OSPEED' => + $ospeed + }; + +$term = + Tgetent + Term::Cap + { + 'TERM' => '', + 'OSPEED' => + $ospeed + }; + + +==> b1086 <== + my ($GPSTime, + $GPSLatitude, + $GPSLongitude, + $GPSSpeed, + $GPSCourse) + = ( + split(',', + $data))[ 1, 3, + 5, 7, + 8 ]; + + my ($GPSTime, + $GPSLatitude, + $GPSLongitude, + $GPSSpeed, + $GPSCourse) + = ( + split(',', + $data))[ 1, 3, + 5, 7, + 8 ]; + + +==> b1087 <== + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_) ) + } ( + split( '', + substr( $dat, + $i, + 16 ) ) ) + ); + + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_) ) + } ( + split( '', + substr( $dat, + $i, + 16 ) ) ) + ); + +==> b1087a <== + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_)) + } ( + split('', + substr($dat, + $i, + 16))) + ); + + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_)) + } ( + split('', + substr($dat, + $i, + 16))) + ); + +==> b1088 <== + $domain_name + = ( + split(' ', + $answer))[4]; + + $domain_name + = ( + split(' ', + $answer))[4]; + +==> b1089 <== + my %args = ( + 'for' => "Foo::Role" ); + + my %args = ( + 'for' => "Foo::Role" ); + +==> b109 <== + do { + push @keys, + [ + curr_opt ( + @beg[ 2, + 5 ] ), + 1, + @beg[ 0, 1, 3, + 4 ] ]; + } + +==> b1090 <== + my %handles = ( + count => 'count', + elements => 'elements', + is_empty => 'is_empty', + push => 'push', + push_curried => [ push => 42, 84 ], + unshift => 'unshift', + unshift_curried => + [ unshift => 42, 84 ], + pop => 'pop', + shift => 'shift', + get => 'get', + get_curried => [ get => 1 ], + set => 'set', + set_curried_1 => [ set => 1 ], + set_curried_2 => + [ set => ( 1, 98 ) ], + accessor => 'accessor', + accessor_curried_1 => + [ accessor => 1 ], + accessor_curried_2 => + [ accessor => ( 1, 90 ) ], + clear => 'clear', + delete => 'delete', + delete_curried => [ delete => 1 ], + insert => 'insert', + insert_curried => + [ insert => ( 1, 101 ) ], + splice => 'splice', + splice_curried_1 => [ splice => 1 ], + splice_curried_2 => + [ splice => 1, 2 ], + splice_curried_all => [ + splice => 1, + 2, ( 3, 4, 5 ) + ], + sort => 'sort', + sort_curried => + [ + sort => ( sub { $_[1] <=> $_[0] } ) + ], + sort_in_place => 'sort_in_place', + sort_in_place_curried => + [ + sort_in_place => + ( sub { $_[1] <=> $_[0] } ) + ], + map => 'map', + map_curried => + [ + map => ( sub { $_ + 1 } ) ], + grep => 'grep', + grep_curried => + [ + grep => ( sub { $_ < 5 } ) ], + first => 'first', + first_curried => + [ + first => ( sub { $_ % 2 } ) ], + first_index => 'first_index', + first_index_curried => + [ + first_index => ( sub { $_ % 2 } ) ], + join => 'join', + join_curried => [ join => '-' ], + shuffle => 'shuffle', + uniq => 'uniq', + reduce => 'reduce', + reduce_curried => + [ + reduce => ( sub { $_[0] * $_[1] } ) + ], + natatime => 'natatime', + natatime_curried => + [ natatime => 2 ], + ); + + my %handles = ( + count => 'count', + elements => 'elements', + is_empty => 'is_empty', + push => 'push', + push_curried => [ push => 42, 84 ], + unshift => 'unshift', + unshift_curried => + [ unshift => 42, 84 ], + pop => 'pop', + shift => 'shift', + get => 'get', + get_curried => [ get => 1 ], + set => 'set', + set_curried_1 => [ set => 1 ], + set_curried_2 => + [ set => ( 1, 98 ) ], + accessor => 'accessor', + accessor_curried_1 => + [ accessor => 1 ], + accessor_curried_2 => + [ accessor => ( 1, 90 ) ], + clear => 'clear', + delete => 'delete', + delete_curried => [ delete => 1 ], + insert => 'insert', + insert_curried => + [ insert => ( 1, 101 ) ], + splice => 'splice', + splice_curried_1 => [ splice => 1 ], + splice_curried_2 => + [ splice => 1, 2 ], + splice_curried_all => [ + splice => 1, + 2, ( 3, 4, 5 ) + ], + sort => 'sort', + sort_curried => + [ + sort => ( sub { $_[1] <=> $_[0] } ) + ], + sort_in_place => 'sort_in_place', + sort_in_place_curried => + [ + sort_in_place => + ( sub { $_[1] <=> $_[0] } ) + ], + map => 'map', + map_curried => + [ + map => ( sub { $_ + 1 } ) ], + grep => 'grep', + grep_curried => + [ + grep => ( sub { $_ < 5 } ) ], + first => 'first', + first_curried => + [ + first => ( sub { $_ % 2 } ) ], + first_index => 'first_index', + first_index_curried => + [ + first_index => ( sub { $_ % 2 } ) ], + join => 'join', + join_curried => [ join => '-' ], + shuffle => 'shuffle', + uniq => 'uniq', + reduce => 'reduce', + reduce_curried => + [ + reduce => ( sub { $_[0] * $_[1] } ) + ], + natatime => 'natatime', + natatime_curried => + [ natatime => 2 ], + ); + +==> b1091 <== + foreach (@sigs) + { # Don't allow interruptions + $SIG{$_} = 'IGNORE'; + } + ( open( CHECKPOINT, "> $aub_tmp" + ) ) + || # This is just temporary... + &abort( +"Could not open temporary file $aub_tmp for writing" + ); + + foreach (@sigs) + { # Don't allow interruptions + $SIG{$_} = 'IGNORE'; + } + ( open( CHECKPOINT, "> $aub_tmp" + ) ) + || # This is just temporary... + &abort( +"Could not open temporary file $aub_tmp for writing" + ); + +==> b1092 <== + foreach$at( + grep ($_->Removeable==1, + @{ + $self->Target->AttribBox + ->Attrib + }) + ) + +__END__ + + foreach$at( + grep ($_->Removeable==1, + @{ + $self->Target->AttribBox + ->Attrib + }) + ) + +==> b1093 <== + foreach$at( + grep ($_->Removeable== + 1, + @{$self->Target + ->AttribBox + ->Attrib}) + ) + +__END__ + + foreach + $at(grep + ($_->Removeable==1, + @{ + $self->Target + ->AttribBox + ->Attrib + })) + +==> b1094 <== + foreach$thing( + grep($_->Owner== + $self->Caster, + @{ + $self->Arena + ->Monsters + }) + ) + +__END__ + foreach$thing( + grep($_->Owner== + $self->Caster, + @{ + $self->Arena + ->Monsters + }) + ) + + +==> b1095 <== + use Moose -traits=> + [ + 'My::Trait'=> + {-alias=>{reversed_name=>'reversed',},-excludes=>'reversed_name',}, + ]; + + use Moose -traits=> + [ + 'My::Trait'=>{ + -alias=>{reversed_name=>'reversed',}, + -excludes=>'reversed_name', + }, + ]; + +==> b1096 <== + use Moose -traits => + [ + 'My::Trait' =>{ + -alias => {reversed_name => 'reversed',}, + -excludes => 'reversed_name', + }, + ]; + + use Moose -traits => + [ + 'My::Trait' =>{ + -alias => {reversed_name => 'reversed',}, + -excludes => 'reversed_name', + }, + ]; + + +==> b1097 <== + my (@files) = + @{ $args{-files} + }; + + my (@files) = + @{ $args{-files} + }; + + +==> b1098 <== +sub receive_bgp_update_message { + my ( $peerref, $buff, $rtref, $my_ip ) = @_; + if ( $unfeas_routes_len > 0 ) { + foreach $route (@routes) { + my $prefix_length = $route->{prefix_length}; + if ( $prefix_length == 0 ) { + my $routecount = delete_all_routes( $rtref, $peer ); + } + else { + if ( delete_adjRIBin_route( + $rtref, $prefix, $prefix_length, $peer + ) ) + { + ...; + } + } + } + } +} +__END__ +sub receive_bgp_update_message { + my ( $peerref, $buff, $rtref, $my_ip ) = @_; + if ( $unfeas_routes_len > 0 ) { + foreach $route (@routes) { + my $prefix_length = $route->{prefix_length}; + if ( $prefix_length == 0 ) { + my $routecount = delete_all_routes( $rtref, $peer ); + } + else { + if ( delete_adjRIBin_route( + $rtref, $prefix, $prefix_length, $peer + ) ) + { + ...; + } + } + } + } +} + +==> b1099 <== +# S1 + has observers => + ( traits => ['Array'], + is => 'ro', + isa => 'ArrayRef[Observer]', + auto_deref => 1, + default => sub { [] }, + handles => + { 'add_observer' => 'push', + 'count_observers' => 'count', }, ) ; + +# S2 + has observers => + ( traits => ['Array'], + is => 'ro', + isa => 'ArrayRef[Observer]', + auto_deref => 1, + default => sub { [] }, + handles => + { 'add_observer' => 'push', + 'count_observers' => 'count', }, ) ; + +==> b1100 <== +# S1 +my $parent_sets = [ + [ + [qw( blue blue blue blue )], + [ +qw( blue blue blue blue ) + ] => 'blue' + ], [ + [qw( blue blue blue blue )], + [ +qw( brown brown green blue ) + ] => 'brown' + ], [ + [ +qw( blue blue green green ) + ], [ +qw( blue blue green green ) + ] => 'green' + ], ]; + +# S2: +my $parent_sets = [ + [ + [qw( blue blue blue blue )], + [ +qw( blue blue blue blue ) + ] => 'blue' + ], [ + [qw( blue blue blue blue )], + [ +qw( brown brown green blue ) + ] => 'brown' + ], [ + [ +qw( blue blue green green ) + ], [ +qw( blue blue green green ) + ] => 'green' + ], ]; + +==> b1101 <== + %table = + ( + 'title' => 'Page Referrals by Referrals', + 'col_headers' => [ + 'Page', + 'First Referral', + 'Last Referrals', + 'Total Referrals' + ], + 'data' => [@data] + ); + + %table = + ( + 'title' => 'Page Referrals by Referrals', + 'col_headers' => [ + 'Page', + 'First Referral', + 'Last Referrals', + 'Total Referrals' + ], + 'data' => [@data] + ); + + +==> b1102 <== +sub generate_manifest_pod{ + generate_manifest + map{[ + "pod/$_.pod",$state->{pods}{$_} + ]}sort grep{ + !$state->{copies}{"$_.pod"} + &&!$state->{generated}{"$_.pod"} + &&!-e"$_.pod" + }keys%{$state->{pods}}; +} + +# S2: changed sub name to avoid perltidy complaint +sub generate_manifest_poD{ + generate_manifest + map{ + ["pod/$_.pod",$state->{pods}{$_}] + }sort grep{ + !$state->{copies}{"$_.pod"} + &&!$state->{generated}{"$_.pod"} + &&!-e"$_.pod" + }keys%{$state->{pods}}; +} + +==> b1103 <== +# Note that this has a -norecombine in the .par file + + # S1 + $data = { + map { split ( '=', $_ ) } + split ( + ' ', $2 + ) + }; + + # S2 + $data = { + map { split ( '=', $_ ) } + split ( + ' ', $2 + ) + }; + +==> b1104 <== +foreach $port ( + sort ( @ARGV[ 1 .. $#ARGV ] ) ) + +__END__ +foreach $port ( + sort ( @ARGV[ 1 .. $#ARGV ] + ) ) + + +==> b1105 <== +foreach $port ( + sort + ( @ARGV[ 1 .. $#ARGV ] ) ) +__END__ +foreach $port ( + sort + ( @ARGV[ 1 .. $#ARGV ] + ) ) + + +==> b1106 <== + return + map{( + $_,[$self->$_(@_[1..$#_])])}@every; + + return + map{( + $_,[$self->$_(@_[1..$#_])])}@every; + +==> b1107 <== +sub parsedate { + if ($xx) { + while (1) { + if ( !defined $m ) # + { + + if(&parse_date_offset( + \$t,$now,\$y,\$m,\$d,\$rd,\$rs,%options + )) + { + ...; + } + + } + } + } +} + +==> b1108 <== + my$clist= + $scrolled_window_hash{ + ( + sort ( + keys(%scrolled_window_hash)) + )[$page] + }[1]; + + my$clist= + $scrolled_window_hash{ + ( + sort ( + keys(%scrolled_window_hash)) + )[$page] + }[1]; + +==> b1109 <== +ok( + $original, + "loaded " + . basename $path +); + +==> b1110 <== + $res .= $1; + last unless $3; + $res .= + depod1( + $rstr, $3, + closing $4 ); + + $res .= $1; + last unless $3; + $res .= + depod1( + $rstr, $3, + closing $4 ); + +==> b1111 <== + my($name,$content)= + map{@$_;} + grep{$_->[0]eq$find}map{[### full path ### + File::Spec::Unix->catfile( + grep{length}@{$_->[0]}, + $_->[1] + ), + $_->[2], + ]}@$struct; + + my($name,$content)= + map{@$_;} + grep{$_->[0]eq$find}map{[### full path ### + File::Spec::Unix->catfile( + grep{length}@{$_->[0]}, + $_->[1] + ), + $_->[2], + ]}@$struct; + + +==> b1112 <== +run_tests( + 'Basic Big5 range', + { + 'utf' => ( + 24093.39640.38525.20043.33495.35028.20846.65292 + . 26389.30343.32771.26352.20271.24248.65108 + . 25885.25552.35998.20110.23391.38508.20846.65292 + . 24799.24218.23493.21566.20197.38477.65108 + ), + + 'big5-hkscs' => ( + join('', +'«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q', +'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q', + ) + ), + } +); + +run_tests( + 'Basic Big5 range', + { + 'utf' => ( + 24093.39640.38525.20043.33495.35028.20846.65292 + . 26389.30343.32771.26352.20271.24248.65108 + . 25885.25552.35998.20110.23391.38508.20846.65292 + . 24799.24218.23493.21566.20197.38477.65108 + ), + + 'big5-hkscs' => ( + join('', +'«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q', +'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q', + ) + ), + } +); + +==> b1113 <== +$STYLESHEET{'html-light'}={ + 'tags'=>{ + 'predefined identifier'=> + { + 'start'=>'', + 'stop'=>'' + }, + } +}; + +$STYLESHEET{'html-light'}={ + 'tags'=>{ + 'predefined identifier'=> + { + 'start'=>'', + 'stop'=>'' + }, + } +}; + +==> b1114 <== +is( + length(pack("j", + 0 + )), + $Config{ivsize} +); + +is( + length(pack("j", + 0 + )), + $Config{ivsize} +); + +==> b1115 <== + return sort map{ + ($_,db_complete($_."::","v ",2)) + } + + return + sort map{( + $_,db_complete($_."::","v ",2))} + + +==> b1116 <== +sub checkorder{ + my ($i, + $disorder); + + for ($i = 0; + $i < $#$aref; + ++$i) + { +# Equality shouldn't happen, but catch it in the contents check + + $disorder = + ( + substr( + $aref->[$i], 0, + $RootWidth) eq + substr( + $aref->[ $i +1 ], + 0, + $RootWidth)) + ? "Instability" + : "Disorder"; + } +} +__END__ + +sub checkorder{ + my ($i, + $disorder); + + for ($i = 0; + $i < $#$aref; + ++$i) + { +# Equality shouldn't happen, but catch it in the contents check + + $disorder = + ( + substr( + $aref->[$i], 0, + $RootWidth + ) eq substr( + $aref->[ $i + 1 ], + 0, + $RootWidth + ) + ) + ? "Instability" + : "Disorder"; + } +} + +==> b1117 <== +is_deeply( + $feature->prereqs->as_string_hash, + { + develop=>{ + requires=>{'Genius::Evil'=>'1.234'} + }, + runtime=>{ + requires=>{'Machine::Weather'=>'2.0'} + }, + }, + '$feature->prereqs', +); + +is_deeply( + $feature->prereqs->as_string_hash, + { + develop=>{ + requires=>{'Genius::Evil'=>'1.234'} + }, + runtime=>{ + requires=>{'Machine::Weather'=>'2.0'} + }, + }, + '$feature->prereqs', +); + +is_deeply( + $feature->prereqs->as_string_hash, + { + develop => { + requires => + { 'Genius::Evil' => '1.234' } + }, + runtime => { + requires => + { 'Machine::Weather' => '2.0' } + }, + }, + '$feature->prereqs', +); + +==> b1118 <== +{ + my %tests = ( + -8589934592 => + [ 9, + -203, +qr/Oct \d+ .* 1697$/ + ], + -1296000 => [ 11, + 69, +qr/Dec \d+ .* 1969$/ + ], + ); +} + +{ + my %tests = ( + -8589934592 => + [ 9, + -203, +qr/Oct \d+ .* 1697$/ + ], + -1296000 => [ 11, + 69, +qr/Dec \d+ .* 1969$/ + ], + ); +} + +==> b1119 <== + ok keys(%expected)+ + keys(%bad)==0, +"Raw hash is ok"; + + ok keys(%expected)+ + keys(%bad)==0, +"Raw hash is ok"; + +==> b1120 <== + ok + exists{ + ____=>undef + }->{$dummy}, +'ref sets UTF8 flag correctly'; + + ok + exists{ + ____=>undef + }->{$dummy}, +'ref sets UTF8 flag correctly'; + +==> b1121 <== +%Expect_Dir = ( + dir_path( + 'fa') => 1, + dir_path( 'fa', + 'faa' ) => 1, + dir_path( 'fa', + 'fab' ) => 1, + dir_path( 'fa', + 'fab', + 'faba' ) => 1, + dir_path( + 'fb') => 1, + dir_path( 'fb', + 'fba' ) => 1 +); + +%Expect_dir = ( + dir_path( + 'fa') => 1, + dir_path( 'fa', + 'faa' ) => 1, + dir_path( 'fa', + 'fab' ) => 1, + dir_path( 'fa', + 'fab', + 'faba' ) => 1, + dir_path( + 'fb') => 1, + dir_path( 'fb', + 'fba' ) => 1 +); + +==> b1122 <== + my @prog = + ( + make_perl_prog( + $test, + $tests->{$test}, + 0), + make_perl_prog( + $test, + $tests->{$test}, + 1), + ) ; + + my @prog = + ( + make_perl_prog( + $test, + $tests->{$test}, + 0), + make_perl_prog( + $test, + $tests->{$test}, + 1), + ) ; + +==> b1123 <== +sub t025 ( + $ = undef ) +{ + $a // "z"; +} + +sub t025 ( + $ = undef ) +{ + $a // "z"; +} + +==> b1124 <== + ok( + ( $k, $err ) = + new Compress::Raw::Zlib::Inflate( { + -Bufsize => 1, + -AppendOutput => 1, + -WindowBits => -MAX_WBITS() + } ) + ); + + ok( + ( $k, $err ) = + new Compress::Raw::Zlib::Inflate( { + -Bufsize => 1, + -AppendOutput => 1, + -WindowBits => -MAX_WBITS() + } ) + ); + +==> b1125 <== +sub buffered { + +} + +# S1 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +# S2 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +==> b1126 <== +sub buffered { + +} + +# S1 + +my $buffered_shallow + = intercept { + buffered +'buffered shallow' + => $subtest + }; + +# S2 +my $buffered_shallow + = intercept { + buffered +'buffered shallow' + => $subtest + }; + +==> b1127 <== +sub buffered +{ + +} + +# S1 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => + $subtest +}; + +# S2 + +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => + $subtest +}; + +==> b1128 <== +is_deeply( + [ + pairmap + { uc + $a + => + $b + } + ] +); + +is_deeply( + [ + pairmap + { uc + $a + => + $b + } + ] +); + +==> b1129 <== +if ($ON_EBCDIC) +{ delete @Encode::ExtModule{ + qw(euc-cn gb2312 gb12345 gbk cp936 iso-ir-165 MacChineseSimp + euc-jp iso-2022-jp 7bit-jis shiftjis MacJapanese cp932 + euc-kr ksc5601 cp949 MacKorean + big5 big5-hkscs cp950 MacChineseTrad + gb18030 big5plus euc-tw) + }; +} + +==> b1130 <== +my @cases = + ( { no_proxy => [ undef, [], ], expect => [], }, + { no_proxy => [ "localhost", ["localhost"], ], expect => ["localhost"], }, + { no_proxy => + [ "localhost,example.com", "localhost, example.com", [qw/localhost example.com/] ], + expect => [ "localhost", "example.com" ], }, + ); + +==> b1131 <== +is( + j( + splice(@a,-@a,@a,1, + 2,3) + ), + j(0..13), +'splice the whole list out, add 3 elements, return value is @a' +); + +is( + j( + splice(@a,-@a,@a,1, + 2,3) + ), + j(0..13), +'splice the whole list out, add 3 elements, return value is @a' +); + + +==> b1132 <== + my @temp = + unexpand( + map { sprintf "%-32s%s", @$_ } @_ ); + + my @temp = + unexpand( + map { sprintf "%-32s%s", @$_ } @_ ); + + +==> b1134 <== +{ + ok do{ + grep {$_ eq $lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC'; +} + +{ + ok do{ + grep {$_ eq $lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC'; +} + +==> b1135 <== +{ + ok do{ + grep {$_ eq$lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC with double colons'; +} ; + +{ + ok do{ + grep {$_ eq$lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC with double colons'; +} ; + +==> b1136 <== +{ + ok do{ + grep{$_ eq$lib} + @INC[0..( + $#INC-1)]; + }, +'Identified entry in @INC with double colons'; +} + +{ + ok do{ + grep{$_ eq$lib} + @INC[0..( + $#INC-1)]; + }, +'Identified entry in @INC with double colons'; +} + + +==> b1137 <== + $out->{errors}= + [{ + tag=>'OOPS', + fail=>!$ENV{FAILURE_DO_PASS}, + details=>"An error occurred" + }]; + + $out->{errors}= + [{ + tag=>'OOPS', + fail=>!$ENV{FAILURE_DO_PASS}, + details=>"An error occurred" + }]; + + +==> b1138 <== + if !( + grep { + File::Spec->can( + $_) != + File::Spec::Unix + ->can($_) + } @{ + $udeps{$meth}} + ) + + if !( + grep { + File::Spec->can( + $_) != + File::Spec::Unix + ->can($_) + } @{ + $udeps{$meth}} + ) + +==> b1139 <== +# the first line is required to cause this +chdir$test_dir or die"Can't chdir $test_dir"; +@INC= + (File::Spec->catdir((File::Spec->updir)x 3, + qw(lib) )); + +chdir$test_dir or die"Can't chdir $test_dir"; +@INC= + (File::Spec->catdir((File::Spec->updir)x 3, + qw(lib) )); + +==> b114 <== +# State 1 + +{ + { + if ( ref($template) ) { + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + } + } +} + +# State 2 + +{ + { + if ( ref($template) ) { + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + } + } +} + +==> b1140 <== + @tags{ + _unpack_tags( $^H{$class} ) + } = (); + + @tags{ + _unpack_tags( $^H{$class} ) + } = (); + + @tags{ + _unpack_tags( $^H{$class} ) + } = (); + +==> b1141 <== +my @schedule = ( + + {name => 'Single selectable source', + sources => sub { + return [ TAP::Parser->new( { source => File::Spec->catfile( 't', 'sample-tests', 'simple' ), } ), + [ '1..5', 'ok 1', 'ok 2', 'ok 3', 'ok 4', 'ok 5', ] ]; + }, }, + +); + +==> b1142 <== + is_deeply( + [sets_plan({plan=>{}})], + [0], +"Empty plan means count of 0, nothing extra" + ); + + is_deeply( + [sets_plan({plan=>{}})], + [0], +"Empty plan means count of 0, nothing extra" + ); + +==> b1143 <== + { + $crc = + ( $crc >> 8 ) + ^ autodin_ii_table + ->[ ( + $crc ^ $byte ) + & 0xff ]; + } + + { + $crc = + ( $crc >> 8 ) + ^ autodin_ii_table + ->[ ( + $crc ^ $byte ) + & 0xff ]; + } + + +==> b1144 <== + my @tests = ( + [ 1, + {'AB' => ''} => + [ + [ 'AB' => '' ] ] + ], + ); + + my @tests = ( + [ 1, + {'AB' => ''} => + [ + [ 'AB' => '' ] ] + ], + ); + +==> b1145 <== + $self->{values}[ + $#{ + $self->{values} + } + ]; + + $self->{values}[ + $#{ + $self->{values} + } + ]; + + +==> b1146 <== + my $line_number= + $self->{line_no} + ->[@{$self + ->{line_no}} + - @{$self->{line}} + -1]; + + my $line_number= + $self->{line_no} + ->[@{$self + ->{line_no}} + - @{$self->{line}} + -1]; + +==> b1147 <== + @summary= + @output[12..( + $#output-1)]; + + @summary= + @output[12..( + $#output-1)]; + + +==> b1148 <== + $self->{line_no} + ->[ @{ $self + ->{line_no} } - + @{ $self->{line} } - + 1 ]; + + $self->{line_no} + ->[ @{ $self + ->{line_no} } - + @{ $self->{line} } - + 1 ]; + + $self->{line_no} + ->[ @{ $self + ->{line_no} } - + @{ $self->{line} } - + 1 ]; + + +==> b1149 <== +my %results = ( +T_UV => + { +type => 'u', +with_size => undef, +what => '(UV)$var', +what_size => undef + }, +); + +my %results = ( +T_UV => + { +type => 'u', +with_size => undef, +what => '(UV)$var', +what_size => undef + }, +); + +==> b1150 <== +my %base = ( +'meta-spec' => + { +url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec", +version => 2, + }, +); + +my %base = ( +'meta-spec' => + { +url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec", +version => 2, + }, +); + +==> b1151 <== + my %tag_cache = ( + 'all' => + [ + map { "CORE::$_" } + @{$TAGS{':all'}} + ], + ); + + my %tag_cache = ( + 'all' => + [ + map { "CORE::$_" } + @{$TAGS{':all'}} + ], + ); + + +==> b1152 <== + my@displayable= + @$items[$pos..( + $pos+$limit)]; + + my@displayable= + @$items[$pos..( + $pos+$limit)]; + + +==> b1153 <== + @summary = @output[ + 6 .. ( + $#output - 1 + ) + ]; + + @summary = @output[ + 6 .. ( + $#output - 1 + ) + ]; + + +==> b1154 <== + unshift @str, + chr + $I8_2_utf->[( + $ucp&0x1f) + |0xA0]; + + unshift @str, + chr + $I8_2_utf->[( + $ucp&0x1f) + |0xA0]; + +==> b1155 <== +%aa = ( +uvar => + { +char => 'U', +vtable => 'uvar', +desc => 'Available for use by extensions' + }, +); + +%aa = ( +uvar => + { +char => 'U', +vtable => 'uvar', +desc => 'Available for use by extensions' + }, +); + +==> b1156 <== + $distros{ distro_base ( + $short_distro) + }{$distro} = 1 ; + + $distros{ distro_base ( + $short_distro) + }{$distro} = 1 ; + +==> b1157 <== + @summary = @output[ + 12 .. ( + $#output - 1 + ) + ]; + + @summary = @output[ + 12 .. ( + $#output - 1 + ) + ]; + + +==> b1158 <== +%language_for = ( +'13' => + { +tokens => \%v13, +setup => sub { shift->{iterator}->handle_unicode; }, + }, +); + +%language_for = ( +'13' => + { +tokens => \%v13, +setup => sub { shift->{iterator}->handle_unicode; }, + }, +); + +==> b1159 <== +my %delta = ( + +5.009002 => + { +delta_from => 5.009001, +changed => { 'corelist' => '1', }, +removed => {} + }, + +); + +my %delta = ( + +5.009002 => + { +delta_from => 5.009001, +changed => { 'corelist' => '1', }, +removed => {} + }, + +); + +==> b116 <== +my %SPECIALS=( + "mail" => + [ + "Received:",">From", + "Return-Path:","Cc:", + ], +); + +==> b1160 <== +{ +'Safe' => + { +'DISTRIBUTION' => 'RGARCIA/Safe-2.35.tar.gz', +'FILES' => q[dist/Safe], + }, +} + +{ +'Safe' => { +'DISTRIBUTION' => 'RGARCIA/Safe-2.35.tar.gz', +'FILES' => q[dist/Safe], +}, +} + + +==> b1161 <== +{ +name => 'Just includes', +args => + { +argv => [ qw( one two three ) ], +includes => [ qw( four five six ) ], + }, +expect => { includes => [ qw( four five six ) ], }, +} + +{ +name => 'Just includes', + args => { +argv => [ qw( one two three ) ], +includes => [ qw( four five six ) ], + }, + expect => { includes => [ qw( four five six ) ], }, +} + +==> b1162 <== + if(defined$hints{family}){ + @infos= + ({ + family=>$hints{family}, + socktype=>$hints{socktype}, + protocol=>$hints{protocol}, + }); + } + + if(defined$hints{family}){ + @infos= + ({ + family=>$hints{family}, + socktype=>$hints{socktype}, + protocol=>$hints{protocol}, + }); + } + +==> b1163 <== + @EXPORT = ( + @{ $EXPORT_TAGS{standard} },); + + @EXPORT = ( + @{ $EXPORT_TAGS{standard} },); + +==> b1164 <== + my @displayable =@$items[ + $pos .. ( + $pos+$limit + ) + ]; + + my @displayable =@$items[ + $pos .. ( + $pos+$limit + ) + ]; + +==> b1165 <== + $lb_table[ + $lb_enums{ + 'E_Base'} + ][ + $lb_enums{ + 'E_Modifier'} + ] + = $lb_actions{ + 'LB_NOBREAK'}; + + $lb_table[ + $lb_enums{ + 'E_Base'} + ][ + $lb_enums{ + 'E_Modifier'} + ] + = $lb_actions{ + 'LB_NOBREAK'}; + +==> b1166 <== +my $connect = + { +headers => + { +host => "$request->{host}:$request->{port}", +'user-agent' => $agent, + } + }; + +my $connect = + { +headers => + { +host => "$request->{host}:$request->{port}", +'user-agent' => $agent, + } + }; + +==> b1167 <== +my $xx = + { +'expr::array::lex_1const_m1' => + { +desc => 'lexical $array[-1]', +setup => 'my @a = (1)', +code => '$a[-1]', + }, + }; + +my $xx = + { +'expr::array::lex_1const_m1' => + { +desc => 'lexical $array[-1]', +setup => 'my @a = (1)', +code => '$a[-1]', + }, + }; + + +==> b1168 <== +my $xx = + { +vendorarch => + { +s => $vprefix, +t => 'vendor', +d => "$version/$arch", +style => $libstyle + }, + }; + +my $xx = + { +vendorarch => + { +s => $vprefix, +t => 'vendor', +d => "$version/$arch", +style => $libstyle + }, + }; + + +==> b1169 <== + is ( + causes_fail ( + {errors => [ {fail => 1} ]} + ), + 1, + "Fatal errors cause failure" + ); + +==> b117 <== + # Same as Bug96 + # State 1 + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + # State 2 + + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + +==> b1170 <== + # S1 + my $hsh : shared = + shared_clone ( + {'foo' => [ qw/foo bar baz/ ]} ); + + # S2 + + my $hsh : shared = + shared_clone ( + {'foo' => [ qw/foo bar baz/ ]} ); + +==> b1171 <== + # S1 + my $parser = + TAP::Parser->new ( + {source => [ split /$/, $tap ]}); + + # S2 + my $parser = + TAP::Parser->new ( + {source => [ split /$/, $tap ]}); + +==> b1172 <== +# S1 + +ok( + '[{"1":[5]}]' eq + encode_json + [ + {1=>[5]} + ]); + +# S2 + +ok( + '[{"1":[5]}]' eq + encode_json + [ + {1=>[5]} + ]); + + +==> b1173 <== +# problem caused by -wn and -bbhbi not working together + + # S1 + my $two = + $CLASS + ->new( + facet_data => + { hubs => + [ + { details => +"DO NOT SHOW" + } ], + } ); + + # S2 + + my $two = + $CLASS + ->new( + facet_data => + { hubs => + [ + { details => +"DO NOT SHOW" + } ], + } ); + +==> b1174 <== +# S1 + +if ( $op and $op eq 'do_search' ) { + @{$invoices} = + GetInvoices( + shipmentdatefrom => + $shipmentdatefrom + ? output_pref( { + str => $shipmentdatefrom, + dateformat => 'iso' + } ) + : undef, + publicationyear => $publicationyear, + ); +} + +# S2 + +if ( $op and $op eq 'do_search' ) { + @{$invoices} = + GetInvoices( + shipmentdatefrom => + $shipmentdatefrom + ? output_pref( { + str => $shipmentdatefrom, + dateformat => 'iso' + } ) + : undef, + publicationyear => $publicationyear, + ); +} + +==> b1175 <== +# S1 + +my $json_response + = decode_json $t + ->tx->res->content + ->get_body_chunk; + +# S2 + +my $json_response + = decode_json $t + ->tx->res->content + ->get_body_chunk; + +==> b1176 <== + # S1 + if ( + $enter->flags & + OPf_STACKED + and + not + null $ary + ->first + ->sibling + ->sibling ) + { + ...; + } + + # S2 + if ( + $enter->flags & + OPf_STACKED + and + not + null $ary + ->first + ->sibling + ->sibling ) + { + ...; + } + +==> b1178 <== +# S1 +use Modern::Perl; +use CGI qw ( -utf8 ); +use Koha::FrameworkPlugin; +my $input = CGI->new; +my $plugin = + Koha::FrameworkPlugin->new( { + name => scalar $input->param("plugin_name"), + } ); + +# S2 +use Modern::Perl; +use CGI qw ( -utf8 ); +use Koha::FrameworkPlugin; +my $input = CGI->new; +my $plugin = + Koha::FrameworkPlugin->new( { + name => scalar $input->param("plugin_name"), + } ); + +==> b1179 <== + # -bom and -scp were interfering + # S1 + $resource = { id => $package->new_from_mana( + $result->{data} + )->id }; + + # S2 + $resource = { id => $package->new_from_mana( + $result->{data} + )->id }; + + # Stable + $resource = { id => $package->new_from_mana( + $result->{data} + )->id }; + +==> b1180 <== +# S1 +$orders + = SearchOrders( + { ordernumber => + $ordernumber + } ); + +# S2 +$orders + = SearchOrders( + { ordernumber => + $ordernumber + } ); + + +==> b1181 <== + # S1 + $marc + = GetISBDView( + { + 'record' => + $marc, + 'template' => +'opac', + 'framework' => + $framework, + } ); + + # S2 + $marc + = GetISBDView( + { + 'record' => + $marc, + 'template' => +'opac', + 'framework' => + $framework, + } ); + + +==> b1182 <== + #S1 + my $hold = { + reservedate_formatted => + $h->reservedate() + ? output_pref( { + dt => + dt_from_string( + $h + ->reservedate + () + ), + dateonly => 1 + } ) + : q{}, + suspend_until_formatted => + $h->suspend_until() + ? output_pref( { + dt => + dt_from_string( + $h + ->suspend_until + () + ), + dateonly => 1 + } ) + : q{}, + expirationdate_formatted => + $h->expirationdate() + ? output_pref( { + dt => + dt_from_string( + $h + ->expirationdate + () + ), + dateonly => 1 + } ) + : q{}, + }; + + #S2 + my $hold = { + reservedate_formatted => + $h->reservedate() + ? output_pref( { + dt => + dt_from_string( + $h + ->reservedate + () + ), + dateonly => 1 + } ) + : q{}, + suspend_until_formatted => + $h->suspend_until() + ? output_pref( { + dt => + dt_from_string( + $h + ->suspend_until + () + ), + dateonly => 1 + } ) + : q{}, + expirationdate_formatted => + $h->expirationdate() + ? output_pref( { + dt => + dt_from_string( + $h + ->expirationdate + () + ), + dateonly => 1 + } ) + : q{}, + }; + + +==> b1183 <== +# S1 +is( + ref( + Koha::Patron::Discharge::request( { borrowernumber => $patron->{borrowernumber} } ) + ), + 'Koha::Schema::Result::Discharge', + 'Discharge request sent' +); + +# S2 +is( + ref( + Koha::Patron::Discharge::request( { borrowernumber => $patron->{borrowernumber} } ) + ), + 'Koha::Schema::Result::Discharge', + 'Discharge request sent' +); + +==> b1184 <== +# S1 +ok( ( Win32::GetFullPathName( + substr( + $cwd, 2 + ) + ) + )[0], + "$dir\\" +); + +# S2 +ok( ( Win32::GetFullPathName( + substr( + $cwd, 2 + ) + ) + )[0], + "$dir\\" +); + +==> b1185 <== + # S1 + my $visible_items = { + map { + $_ + ->itemnumber + => $_ + } $biblio->items + ->filter_by_visible_in_opac + ( { patron => + $patron + } )->as_list + }; + + #S2 + my $visible_items = { + map { + $_ + ->itemnumber + => $_ + } $biblio->items + ->filter_by_visible_in_opac + ( { patron => + $patron + } )->as_list + }; + +==> b1186 <== +# S1 +sub null_to_zzempty { } + +sub entab { + + return + $table->{ null_to_zzempty ( + $row ) } + ->{ null_to_zzempty ( $col ) }; +} + +# S2 +sub null_to_zzemptY { } + +sub entaB { + + return + $table->{ null_to_zzemptY ( + $row ) } + ->{ null_to_zzemptY ( $col ) }; +} + +==> b1187 <== +# S1 +find( + sub { + while( + defined( + my $line = + <$fh> + ) + ) + { + ...; + } + }, + @argv +); + +# S2 +find( + sub { + while( + defined( + my $line = + <$fh> + ) + ) + { + ...; + } + }, + @argv +); + +==> b1188 <== +# S1 +find( + sub { + while( + defined( my $line = + <$fh>)) + { + ...; + } + }, + @argv); + +# S2 +find( + sub { + while( + defined( my $line = + <$fh>)) + { + ...; + } + }, + @argv); + +==> b1189 <== +#S1 +if ($ON_EBCDIC) +{ delete @Encode::ExtModule{ + qw(euc-cn gb2312 gb12345 gbk cp936 iso-ir-165 MacChineseSimp + euc-jp iso-2022-jp 7bit-jis shiftjis MacJapanese cp932 + euc-kr ksc5601 cp949 MacKorean + big5 big5-hkscs cp950 MacChineseTrad + gb18030 big5plus euc-tw) + }; +} + +#S2 +if ($ON_EBCDIC) +{ delete @Encode::ExtModule{ + qw(euc-cn gb2312 gb12345 gbk cp936 iso-ir-165 MacChineseSimp + euc-jp iso-2022-jp 7bit-jis shiftjis MacJapanese cp932 + euc-kr ksc5601 cp949 MacKorean + big5 big5-hkscs cp950 MacChineseTrad + gb18030 big5plus euc-tw) + }; +} + +==> b1190 <== +# S1 +print + "not " + unless + ref+( + map{ + sub:lvalue + { + "a"; + } + }1 + )[0]eq + "CODE"; + +# S2 +print + "not " + unless + ref+( + map{ + sub:lvalue + { + "a"; + } + }1 + )[0]eq + "CODE"; + + +==> b1191 <== + # S1 + $_[0]eq$_[1] + or($_[1]=~/^([!~])(.)([\x00-\xff]*)/) + and($1 eq '!') + ^(eval{($_[2]."::".$_[0])=~/$2$3/;}); + + # S2 + + $_[0]eq$_[1] + or($_[1]=~/^([!~])(.)([\x00-\xff]*)/) + and($1 eq '!') + ^(eval{($_[2]."::".$_[0])=~/$2$3/;}); + + +==> b1192 <== + # S1 + @EXPORT = + ( @{$EXPORT_TAGS{standard}}, ); + + # S2 + @EXPORT = + ( @{$EXPORT_TAGS{standard}}, ); + +==> b1193 <== + # S1 + $config->{$key} + =[$config->{$key} + ]; + + # S2 + $config->{$key} + =[$config->{$key} + ]; + +==> b1194 <== + # S1 + is(0+keys%mani,0+@files,"no duplicate files in MANIFEST") + or diag( + join("\n ","Duplicates:",grep$mani{$_}>1, + keys%mani) + ); + + # S2 + is(0+keys%mani,0+@files,"no duplicate files in MANIFEST") + or + diag(join("\n ","Duplicates:",grep$mani{$_}>1,keys%mani)); + + +==> b1196 <== +# S1 +ok( $strX eq NFC( join( '', @strX ) ) ); + +# S2 +ok( $strX eq NFC( join( '', @strX ) ) ); + +==> b1197 <== +# S1 +if ( compare ( "$file.new", $file ) ) + + # S2 + if ( compare ( "$file.new", $file ) ) + +==> b1198 <== +if ( open( SH, '<', "${outdir}config_h.SH" ) ) + + if ( + open( SH, '<', "${outdir}config_h.SH" ) ) + +==> b1199 <== + if ( open( CONFIG_H_SH, '<', 'config_h.SH' ) ) + + if ( + open( CONFIG_H_SH, '<', 'config_h.SH' ) ) + +==> b120 <== + # Same as bug96 + # State 1 + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + # State 2 + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + +==> b1202 <== + $_res = + ( + $severity_host_count{$b} + <=> $severity_host_count{ + $a} ); + + $_res = + ( + $severity_host_count{$b} + <=> $severity_host_count{ + $a} ); + +==> b1203 <== + if( + !$found + &&$word + &&( + ($ref_info= + $references{$word})) + ) + + if( + !$found + &&$word + &&( + ($ref_info= + $references{$word})) + ) + +==> b1205 <== + # S1 (x was being misparsed as a function call) + print $" x( 27 - @| ) . $. . $" x 5; + + # S2 + print $" x( 27 - @| ) . $. . $" x 5; + +==> b1206 <== +# S1 + +if ( + $version ge + '2.8.0' ) +{ $cons->run ( { +'-sequence' + => $aln2, +'-outseq' + => + $consoutfile + } ); +} + +# S2 + +if ( + $version ge + '2.8.0' ) +{ $cons->run ( { +'-sequence' + => $aln2, +'-outseq' + => + $consoutfile + } ); +} + + +==> b1207 <== + #OK: kkkkkbZZZZZZZZbxbiiiiiiii; + print $comment x$verbose; + + #ERR: kkkkkbZZZZZZZZbwZZZZZZZZ; + print $comment x$verbose; + + +==> b1208 <== + # S1 + + my $home = ( + $^O =~ /mswin32/i + ? $ENV{HOME} + : ( + eval { + ( getpwuid($>) )[7]; + } ## end eval + || $ENV{HOME} + ) + ); + + # S2 + + my $home = ( + $^O =~ /mswin32/i + ? $ENV{HOME} + : ( + eval { + ( getpwuid($>) )[7]; + } ## end eval + || $ENV{HOME} + ) + ); + +==> b1209 <== +# S1 +$bc[ + ord ( substr ( $P, $i, 1 ) ) +] = $j--; + +# S2 +$bc[ + ord ( + substr ( $P, $i, 1 ) ) ] + = $j--; + +==> b1210 <== +# S1 +@mo = ( + Jan, Feb, Mar, Apr, + May, Jun, Jul, Aug, + Sep, Oct, Nov, Dec +); + +# S2 +@mo = ( + Jan, Feb, Mar, Apr, + May, Jun, Jul, Aug, + Sep, Oct, Nov, Dec +); + + +==> b1211 <== + # S1 + my$d= + \substr( + (state$tb=$thunderbirds[$x]), + $x,1); + + # S2 + my$d= + \substr( + (state$tb=$thunderbirds[$x]), + $x,1); + + +==> b1212 <== + # S1 + my $line_count + = scalar + @{ [lines ()] + }; + + # S2 + my $line_count + = scalar + @{ [lines ()] + }; + +==> b1213 <== + # S1 + @NNVN_w1 = ( + Perl, Practical, + Precocious + ); + + # S2 + @NNVN_w1 = ( + Perl, Practical, + Precocious + ); + +==> b1214 <== + # S1 + eval { + 'foo' + =~ +/$pattern/, + 1; + } + + # S2 + eval + { + 'foo' + =~ +/$pattern/, + 1; + } + +==> b1215 <== + # S1 + my $dists + =sqrt ( + ( + $vecs**2 + )->sumover ) + +0.0001; + + # S2 + my $dists + =sqrt ( + ( + $vecs**2 + )->sumover ) + +0.0001; + +==> b1218 <== +# S1 +is( + Koha::Acquisition::Funds->search->count, + $nb_of_funds + 1, + 'The fund should have been added' +); + +# S2 +is( + Koha::Acquisition::Funds->search->count, + $nb_of_funds + 1, + 'The fund should have been added' +); + + +==> b1219 <== +# S1 +subtest 'check_password hook tests'=>sub{ + ok($patron->set_password({password=>'explosion',skip_validation=>1}), + 'Patron password updated via skip validation'); +}; + +#S2 +subtest 'check_password hook tests'=>sub{ + ok($patron->set_password({password=>'explosion',skip_validation=>1}), + 'Patron password updated via skip validation'); +}; + +==> b1220 <== +# S1 +print$msg, + "\n", + '-' x + length$msg, + "\n"; + +# S2 +print$msg, + "\n", + '-' x + length$msg, + "\n"; + +==> b1221 <== + # S1 + ok( + defined( + $pdf->{'ROOT'}->{'Resources'}->{'Font'}->{$fk} + )); + + # S2 + ok(defined($pdf->{'ROOT'}->{'Resources'}->{'Font'}->{$fk} + )); + +==> b1224 <== + # S1 + return ( $self->_testStrand ( $other, $so ) + and not( ( + $self->start () > $other->end () + or $self->end () < $other->start () + ) ) + ); + + #S2 + return ( $self->_testStrand ( $other, $so ) + and not( ( + $self->start () > $other->end () + or $self->end () < $other->start () + ) ) + ); + +==> b1227 <== +# S1 +foreach$n(qw( msm ali )) +{ + foreach$e(qw( + uc16 + )); +} + +# S2 +foreach$n(qw( msm ali )) +{ + foreach$e(qw( + uc16 + )); +} + +==> b1228 <== +# S1 +$obj= { + foo => sub { "bar" ; } +} ; + +# S2 +$obj= { + foo => sub { "bar" ; } +} ; + +==> b1229 <== + # S1 + $n + += ( + $b + = sysread( $data, ${*$data}, + $blksize, $l ) + ); + + # S2 + $n + += ( + $b + = sysread( $data, ${*$data}, + $blksize, $l ) + ); + +==> b1230 <== + # S1 + join( + '', + map { + $_ eq "\e" ? '\M-' + : ord($_) < 32 + ? '\C-' + . lc( + chr( ord($_) + 64 ) ) + : $_ + } ( split( '', $_[0] ) ) ); + + # S2 + join( + '', + map { + $_ eq "\e" ? '\M-' + : ord($_) < 32 + ? '\C-' + . lc( + chr( ord($_) + 64 ) ) + : $_ + } ( split( '', $_[0] ) ) ); + +==> b1231 <== +# S1 +@data = + ( + [ + "1st", "2nd", "3rd", "4th", + "5th", "6th", "7th", "8th", + "9th" + ], + [ + 1, 2, 5, 6, 3, 1.5, 1, 3, 4 + ], + ); + +# S2 +@data = + ( + [ + "1st", "2nd", "3rd", "4th", + "5th", "6th", "7th", "8th", + "9th" + ], + [ + 1, 2, 5, 6, 3, 1.5, 1, 3, 4 + ], + ); + +==> b1232 <== + # S1 + $method.="AdminMode" + if( (defined($context->{args}->{admin_mode})) + &&($context->{args}->{admin_mode}eq"yes") + ); + + # S2 + $method.="AdminMode" + if( (defined($context->{args}->{admin_mode})) + &&($context->{args}->{admin_mode}eq"yes") + ); + +==> b1234 <== +# S1 +is( + Pack + -> + $mname + ( + "a", "b", + "c" ), +"method,a,b,c" +); + +# S2 +is( + Pack + -> + $mname + ( + "a", "b", + "c" ), +"method,a,b,c" +); + +==> b1235 <== + # S1 + my $oldage + = ( + sort { $a <=> $b } + map { -M } + @files )[-1]; + my $depage + = ( + sort { $a <=> $b } + map { -M } @deps ) + [0]; + + # S2 + my $oldage + = ( + sort { $a <=> $b } + map { -M } + @files )[-1]; + my $depage + = ( + sort { $a <=> $b } + map { -M } @deps ) + [0]; + +==> b1236 <== +# Added level test when applying kpit +# S1 + delete $ENV{$_} + for + map {$_, uc ($_)} + qw/http_proxy https_proxy all_proxy/; + + # S2 + delete $ENV{$_} + for + map {$_, uc ($_)} + qw/http_proxy https_proxy all_proxy/; + + # S3 + delete $ENV{$_} + for + map {$_, uc ($_)} + qw/http_proxy https_proxy all_proxy/; + + +==> b1237 <== + # S1 + my $h + = { + map {$_ => uc $_} + 'a' .. 'z' }; + + # S2 + my $h + = { + map {$_ => uc $_} + 'a' .. 'z' }; + +==> b1238 <== + # S1 + local + $Other::{ ${ \ + "f4" } } = + sub { "h1" }; + + # S2 + local + $Other::{ ${ \ + "f4" } } = + sub { "h1" }; + +==> b1239 <== +# S1 +( sockaddr_in( getsockname ( $_[0]->[_SOCKET] ) ) +)[0]; + +# S2 +( sockaddr_in( getsockname ( $_[0]->[_SOCKET] ) ) +)[0]; + +==> b1240 <== + # S1 + printf( +"Inode Last Change at: %s\n", + scalar + localtime($ctime) ); + + # S2 + printf( +"Inode Last Change at: %s\n", + scalar + localtime($ctime) ); + +==> b1241 <== + # created from b901 + # Started blinking with new -lp logic + # S1 + my @tagged_texts = + walk_html( + $tree, + sub { [ 'MAYBE', $_[ 0 ] ] }, + \&promote_if_h1tag + ); + + # S2 + my @tagged_texts = walk_html( + $tree, + sub + { + [ 'MAYBE', $_[ 0 ] ] + }, + \&promote_if_h1tag + ); + +==> b1243 <== +# S1 +use + ExtUtils::MakeMaker; +WriteMakefile( + NAME => +"PDL::Opt::Simplex", + PM => { + map { + ( + $_ => +'$(INST_LIBDIR)/' + . $_ ) + } <*.pm> + } +); + +# S2 +use + ExtUtils::MakeMaker; +WriteMakefile( + NAME => +"PDL::Opt::Simplex", + PM => { + map { + ( + $_ => +'$(INST_LIBDIR)/' + . $_ ) + } <*.pm> + } +); + +==> b1244 <== + # S1 + @NVNN_w2 = ( + Lampoons, Launders, + Leapfrogs, Leaps, + Learns, Legitimizes, + Levels, Levitates, + Liberates, Lightens, + Likes, Liquidates, + Loathes, Loosens, + Loves, Lubricates, + ); + + @NNVN_w3 = ( + Unclutters, Unfetters, + Unifies, Unites, + Unseats, Upgrades, + Upstages, Uses, + Usurps, + ); + + # S2 + @NVNN_w2 = ( + Lampoons, Launders, + Leapfrogs, Leaps, + Learns, Legitimizes, + Levels, Levitates, + Liberates, Lightens, + Likes, Liquidates, + Loathes, Loosens, + Loves, Lubricates, + ); + + @NNVN_w3 = ( + Unclutters, Unfetters, + Unifies, Unites, + Unseats, Upgrades, + Upstages, Uses, + Usurps, + ); + +==> b1250 <== + # S1 + @dependents= + ( + split( + $delim,$dependent{$ctr} ) + ); + + # S2 + @dependents= + ( + split( + $delim,$dependent{$ctr} ) + ); + +==> b1251 <== + # S1 + if ( + !( $line =~ + /\\(nonumber|(no)?tag)/ ) ) + + # S2 + if ( + !( $line =~ + /\\(nonumber|(no)?tag)/ ) ) + +==> b1252 <== +# S1 +@pack=([ +"ufunc.pd", + Ufunc, + PDL::Ufunc + ]); + +# S2 +@pack=([ +"ufunc.pd", + Ufunc, + PDL::Ufunc + ]); + +==> b1255 <== +printf + ( +"%-20s %-50s\n", + "-" + x 20, + "-" + x 50 + ); + +printf + ( +"%-20s %-50s\n", + "-" + x 20, + "-" + x 50 + ); + + +==> b1256 <== + # S1 + &$out( assemble_insn( + $insn, $arg ) ); + + # S2 + &$out( + assemble_insn( + $insn, $arg ) ); + +==> b1257 <== + # S1 + my $hour_angle + = 2 * PI + * ( $hour / 12 + $min / ( 12 * 60 ) ) + - PI / 2; + + # S2 + my $hour_angle + = 2 * PI + * ( $hour / 12 + $min / ( 12 * 60 ) ) + - PI / 2; + +==> b1259 <== + # S1 + $menubar->Menubutton( + -tearoff=>0, + -text=>'File', + -menuitems=> + [ + [Button=>'Save',-command=>\&save_bookmarks], + [Button=>'Quit',-command=>\&exit_program], + ] + )->pack(-side=>'left'); + + # S2 + $menubar->Menubutton( + -tearoff=>0, + -text=>'File', + -menuitems=> + [ + [Button=>'Save',-command=>\&save_bookmarks], + [Button=>'Quit',-command=>\&exit_program], + ] + )->pack(-side=>'left'); + +==> b1260 <== + # S1 + my @cmd = + + ( $::cfg_path_diff, split ( / /, $::cfg_args_diff ), $match1, + $match2 ) ; + + # S2 + my @cmd = + + ( $::cfg_path_diff, split ( / /, $::cfg_args_diff ), $match1, + $match2 ) ; + +==> b1262 <== + # S1 + @theme_args = + get_themes( + \%opt, ( + $2 ? $2 : ( + shift( + @theme_args) + || + shift(@ARGV) + ) ) ); + + # S2 + @theme_args = + get_themes( + \%opt, ( + $2 ? $2 : ( + shift( + @theme_args) + || + shift(@ARGV) + ) ) ); + +==> b1264 <== +#S1 +function( + 'objectclass'=>[ + 'top','person', + 'organizationalPerson', + 'inetOrgperson' + ], +); + +# S2 +function( + 'objectclass'=>[ + 'top','person', + 'organizationalPerson', + 'inetOrgperson' + ], +); + +# S3 +function( + 'objectclass'=>[ + 'top','person', + 'organizationalPerson', + 'inetOrgperson' + ], +); + +==> b1266 <== + $self->{SUMMARY} =[ + { + 'descr' => 'Total number of users using the site', + 'value' => commify ($total_users) + } + ]; + + $self->{SUMMARY} = + [ + { 'descr' => 'Total number of users using the site', 'value' => commify ($total_users) } + ]; + +==> b1267 <== + # S1 + foreach ( + grep + ( $self->{_unique_nodes}->{$_} + > 1, + keys + %{ $self->{_unique_nodes} } + ) + ) + + # S2 + foreach ( + grep + ( $self->{_unique_nodes}->{$_} + > 1, + keys + %{ $self->{_unique_nodes} } + ) + ) + +==> b1268 <== +$|||=sub +{ ($_[$[<$]],$_[$[]) +}; + +$|||=sub +{ ($_[$[<$]],$_[$[]) +}; + +==> b1269 <== +use overload + "=="=>\&_equals, + "!="=> + sub{not _equals(@_)}, + q{""}=> + sub{($_[0]->{_type})}; + +use overload + "=="=>\&_equals, + "!="=> + sub{not _equals(@_)}, + q{""}=> + sub{($_[0]->{_type})}; + + +==> b1270 <== + $this->{SymAutoCor} = + ( PDL->zeroes( + $n * + 2 - + 1 + )->float ); + + $this->{SymAutoCor} = + ( PDL->zeroes( + $n * + 2 - + 1 + )->float ); + + +==> b1271 <== + exit ( + $opts{"-exitval"} + ) ; + + exit ( + $opts{"-exitval"} + ) ; + +==> b1272 <== + $this->{Normals} = ( + PDL->zeroes( + 3, + ( map { $_ - 1 } @{ $this->{XYDims} } ), + @{ $this->{OverDims} } + )->double + )->dummy( 3, $this->{XYDims}[1] ); + + $this->{Normals} = ( + PDL->zeroes( + 3, + ( map { $_ - 1 } @{ $this->{XYDims} } ), + @{ $this->{OverDims} } + )->double + )->dummy( 3, $this->{XYDims}[1] ); + + +==> b1273 <== + if ( + ( $n = + index( $trial, + $frag ) ) >= + $[ + ); + + if ( + ( $n = + index( $trial, + $frag ) ) >= + $[ + ); + +==> b1274 <== + # S1 + $$d{"month_abb"} = + [ + [ + "Jan", "Feb", "Mar", "Apr", "Maj", "Jun", + "Jul", "Aug", "Sep", "Okt", "Nov", "Dec" + ] + ]; + + # S2 + $$d{"month_abb"} = + [ + [ + "Jan", "Feb", "Mar", "Apr", "Maj", "Jun", + "Jul", "Aug", "Sep", "Okt", "Nov", "Dec" + ] + ]; + + # S3 + $$d{"month_abb"} = + [ + [ + "Jan", "Feb", "Mar", "Apr", "Maj", "Jun", + "Jul", "Aug", "Sep", "Okt", "Nov", "Dec" + ] + ]; + + +==> b1275 <== + $$d{"month_abb"} = [ + [ + "sty.", "lut.", "mar.", "kwi.", "maj", "cze.", "lip.", "sie.", "wrz.", "paz.", "lis.", "gru." + ], [ + "sty.", "lut.", "mar.", "kwi.", "maj", "cze.", "lip.", "sie.", "wrz.", "paŸ.", "lis.", "gru." + ] + ]; + + $$d{"month_abb"} = [ + [ + "sty.", "lut.", "mar.", "kwi.", "maj", "cze.", "lip.", "sie.", "wrz.", "paz.", "lis.", "gru." + ], [ + "sty.", "lut.", "mar.", "kwi.", "maj", "cze.", "lip.", "sie.", "wrz.", "paŸ.", "lis.", "gru." + ] + ]; + +==> b1277 <== + # S1 + match_on_type @_ => Null => sub { [] }, + ArrayRef => + sub { [ @{ rev ( tail ($_) ) }, head ($_) ] } ; + + # S2 + match_on_type @_ => Null => sub { [] }, + ArrayRef => sub + { + [ @{ rev ( tail ($_) ) }, head ($_) ] + } ; + + # S3 + match_on_type @_ => Null => sub { [] }, + ArrayRef => + sub { [ @{ rev ( tail ($_) ) }, head ($_) ] } ; + + +==> b1278 <== + # S1 + match_on_type @_ => Null => sub { [] }, + ArrayRef => sub + { [ @{ rev( tail($_) ) }, head($_) ] + }; + + # S2 + match_on_type @_ => Null => sub { [] }, + ArrayRef => sub + { [ @{ rev( tail($_) ) }, head($_) ] + }; + +==> b1280 <== + # S1 + for my $method qw(GetBook Wishlist AddBook RemoveBook + PurchaseBooks) + { + eval "sub $method"; + *$method = sub { + my $self = shift->new; + die SOAP::Fault->faultcode('Server.RequestError') + ->faultstring('Could not get object') + unless $self; + + my $smethod = "SUPER::$method"; + my $res = $self->$smethod(@_); + die SOAP::Fault->faultcode('Server.ExecError') + ->faultstring("Execution error: $res") + unless ref($res); + + $res; + }; + } + + # S2 + for my $method qw(GetBook Wishlist AddBook RemoveBook + PurchaseBooks) + { + eval "sub $method"; + *$method = sub { + my $self = shift->new; + die SOAP::Fault->faultcode('Server.RequestError') + ->faultstring('Could not get object') + unless $self; + + my $smethod = "SUPER::$method"; + my $res = $self->$smethod(@_); + die SOAP::Fault->faultcode('Server.ExecError') + ->faultstring("Execution error: $res") + unless ref($res); + + $res; + }; + } + +==> b1283 <== + $_=join( + '',$_, + ( + ( $MAX_SPLIT_DEPTH<=$section_commands{ + $outermost_level} + )?"\n
\n":'' + ), + "\\$outermost_level", + "*", + "$O$X$C$O$Y$C\\infopagename$O$Y$C$O$X$C\n", + , + " \\textohtmlinfopage" ); + + $_=join( + '',$_, + ( + ( $MAX_SPLIT_DEPTH<=$section_commands{ + $outermost_level} + )?"\n
\n":'' + ), + "\\$outermost_level", + "*", + "$O$X$C$O$Y$C\\infopagename$O$Y$C$O$X$C\n", + , + " \\textohtmlinfopage" ); + +==> b1284 <== + # S1 + if ( ($before) + && ( !($before=~/$begin_env_rx|$begin_cmd_rx/ ) ) + ); + + # S2 + if ( ($before) + && ( !($before=~/$begin_env_rx|$begin_cmd_rx/ ) ) + ); + + +==> b1285 <== +foreach $func ( + @{$Win32API::Registry::EXPORT_TAGS{FuncA} + }, + @{$Win32API::Registry::EXPORT_TAGS{FuncW} + } +); + +foreach $func ( + @{$Win32API::Registry::EXPORT_TAGS{FuncA} + }, + @{$Win32API::Registry::EXPORT_TAGS{FuncW} + } +); + + +==> b1287 <== + $" < 2 ? + $_[ $/ ][ $. ] |= 1 << $" : + ( + $_[ $@[ -1 ][ 1 ] ][ $@[ -1 ][ 0 ] ] + |= 1 << $" - 2 ); + + $" < 2 ? + $_[ $/ ][ $. ] |= 1 << $" : + ( + $_[ $@[ -1 ][ 1 ] ][ $@[ -1 ][ 0 ] ] + |= 1 << $" - 2 ); + + +==> b1289 <== +my $sim4 + = new Bio::Tools::Sim4::Results ( + -file => Bio::Root::IO->catfile ( "t", "sim4.rev" ), + -estisfirst => 0 + ); + +my $sim4 + = new Bio::Tools::Sim4::Results ( + -file => Bio::Root::IO->catfile ( "t", "sim4.rev" ), + -estisfirst => 0 + ); + + +==> b1295 <== + $after=join( + "","\\begin",$opt,"\{verbatim_code\}", + $verbatim_mark,$env, + $global{'verbatim_counter'},"#", + "\\end\{verbatim_code\}",$after + ); + + $after=join( + "","\\begin",$opt,"\{verbatim_code\}", + $verbatim_mark,$env, + $global{'verbatim_counter'},"#", + "\\end\{verbatim_code\}",$after + ); + + +==> b1297 <== +# S1 +my %MyTokens = + ( + '{' => $Text::TeX::Tokens{'{'}, + + # Just pretend they actually ARE new paragraph markers! + '\maketitle' => { 'class' => 'Text::TeX::Paragraph' }, + ); + +# S2 +my %MyTokens = + ( + '{' => $Text::TeX::Tokens{'{'}, + + # Just pretend they actually ARE new paragraph markers! + '\maketitle' => { 'class' => 'Text::TeX::Paragraph' }, + ); + +==> b1298 <== +# S1 +my $file = $menubar->Menubutton( + qw/-text File -underline 0 -menuitems/ => + [ + [ Cascade => '~View', + -menuitems => + [ + [ Button => '~widget', -command => [ \&view_widget_code, __FILE__ ] + ], + [ Button => '~WidgetDemo', -command => [ \&view_widget_code, $wd ] ], + ], # end cascade menuitems + ], # end view cascade + [ Separator => '' ], + [ Button => '~Quit', -command => [ \&exit ] ], + ] +)->grid(qw/-sticky w/); + +# S2 +my $file = $menubar->Menubutton( + qw/-text File -underline 0 -menuitems/ => + [ + [ Cascade => '~View', + -menuitems => + [ [ Button => '~widget', -command => [ \&view_widget_code, __FILE__ ] ], + [ Button => '~WidgetDemo', -command => [ \&view_widget_code, $wd ] ], + ], # end cascade menuitems + ], # end view cascade + [ Separator => '' ], + [ Button => '~Quit', -command => [ \&exit ] ], + ] +)->grid(qw/-sticky w/); + +==> b1299 <== + # S1 + $cod_offset= + $flds[6]- + ( + ($predobj->start( + ) + - + 1 + )% 3); + + # S2 + $cod_offset= + $flds[6]- + ( + ($predobj->start( + ) + - + 1 + )% 3); + +==> b1300 <== +$obj = { + foo => [ + {a => "b"}, + 0, 1, 2 + ] +}; + +$obj = { + foo => [ + {a => "b"}, + 0, 1, 2 + ] +}; + +==> b1301 <== +subtest '->save' => sub { + plan tests => 1; + my $layout + =C4::Patroncards::Layout->new ( layout_name => "new patron card", + layout_id => '', # The interface send an empty string + layout_xml => 'some_xml' + ); +}; + +subtest '->save' => sub { + plan tests => 1; + my $layout + =C4::Patroncards::Layout->new ( layout_name => "new patron card", + layout_id => '', # The interface send an empty string + layout_xml => 'some_xml' + ); +}; + +==> b1302 <== +use vars ( + q!$Start_Dir! + , # The top directory find was called with + q!%Future!, # topdirs find will handle later +); + +use vars ( + q!$Start_Dir! + , # The top directory find was called with + q!%Future!, # topdirs find will handle later +); + +==> b1303 <== +if (( + $response = $browser->request($curreq) +)->is_error()); + +if (( + $response = $browser->request($curreq) +)->is_error()); + + +==> b1304 <== + # S1 + ( + $hisaddr= + recv(SOCKET, + $histime='',4,0) + ); + + # S2 + ( + $hisaddr= + recv(SOCKET, + $histime='',4,0) + ); + +==> b1305 <== +my %Map =( + File::Spec->catfile( + $Dir,"linktest_with_dir.tar" + ) => + [ + [ 0, qr/SECURE EXTRACT MODE/], + [ 1, qr/^$/ ] + ], +); + +my %Map =( + File::Spec->catfile( + $Dir,"linktest_with_dir.tar" + ) => + [ + [ 0, qr/SECURE EXTRACT MODE/], + [ 1, qr/^$/ ] + ], +); + +==> b1306 <== +$oreo = + cookie( + -NAME => 'filling', + -VALUE => "vanilla crème", + -EXPIRES => '+3M' + , # M for month, m for minute + -DOMAIN => '.perl.com' + ); + +$oreo = + cookie( + -NAME => 'filling', + -VALUE => "vanilla crème", + -EXPIRES => '+3M' + , # M for month, m for minute + -DOMAIN => '.perl.com' + ); + + +==> b1307 <== +if () +{ } + +else { } # + +if () +{ } + +else { } # + + +==> b131 <== + unless ( + open( SCORE, + "+>>$Score_File" ) + ) + +==> b1310 <== +isnt( + exception { + $meta = + Moose::Meta::Class->create_anon_class( + superclasses => ['t::bugs::Bar',], # any old class will work + roles => ['Role::BreakOnLoad',], ) + }, + undef, + 'Class dies when attempting composition' +); + +isnt( + exception { + $meta = + Moose::Meta::Class->create_anon_class( + superclasses => ['t::bugs::Bar',], # any old class will work + roles => ['Role::BreakOnLoad',], ) + }, + undef, + 'Class dies when attempting composition' +); + + +==> b1311 <== +# S1 +WriteMakefile( + 'NAME' => 'C4::Search', + 'VERSION_FROM' => 'Search.pm', # finds $VERSION + 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 + ( + $] >= 5.005 + ? ## Add these new keywords supported since 5.005 + ( + ABSTRACT_FROM => + 'Search.pm', # retrieve abstract from module + AUTHOR => 'Koha Dev Team ' + ) + : () + ), +); + +# S2 +WriteMakefile( + 'NAME' => 'C4::Search', + 'VERSION_FROM' => 'Search.pm', # finds $VERSION + 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 + ( + $] >= 5.005 + ? ## Add these new keywords supported since 5.005 + ( + ABSTRACT_FROM => + 'Search.pm', # retrieve abstract from module + AUTHOR => 'Koha Dev Team ' + ) + : () + ), +); + +==> b1314 <== +# S1 +WriteMakefile( + 'NAME' => 'Gimp::Net', + 'VERSION_FROM' => '../Gimp.pm', + +#'INC' => "$INC1 $CPPFLAGS $pdl_inc $cfg{GLIB_CFLAGS} $CFLAGS", + 'INC' => "$INC1 $CPPFLAGS $pdl_inc $CFLAGS", + 'DEFINE' => "$DEFINE1 $DEFS", + 'TYPEMAPS' => + [ "$topdir/typemap", @pdl_typemaps ], + +#dynamic_lib => { OTHERLDFLAGS => "$LDFLAGS $LIBS $cfg{GLIB_LIBS}" }, + dynamic_lib => + { OTHERLDFLAGS => "$LDFLAGS $LIBS" }, + 'PM' => { + 'Net.pm' => '$(INST_LIBDIR)/Net.pm', + }, +); + +# S2 +WriteMakefile( + 'NAME' => 'Gimp::Net', + 'VERSION_FROM' => '../Gimp.pm', + +#'INC' => "$INC1 $CPPFLAGS $pdl_inc $cfg{GLIB_CFLAGS} $CFLAGS", + 'INC' => "$INC1 $CPPFLAGS $pdl_inc $CFLAGS", + 'DEFINE' => "$DEFINE1 $DEFS", + 'TYPEMAPS' => + [ "$topdir/typemap", @pdl_typemaps ], + +#dynamic_lib => { OTHERLDFLAGS => "$LDFLAGS $LIBS $cfg{GLIB_LIBS}" }, + dynamic_lib => + { OTHERLDFLAGS => "$LDFLAGS $LIBS" }, + 'PM' => { + 'Net.pm' => '$(INST_LIBDIR)/Net.pm', + }, +); + +==> b1315 <== +# S1 +our %EXPORT_TAGS + = ( + 'all' => [ + qw( + + ) ] + ); + +# S2 +our %EXPORT_TAGS + = ( + 'all' => [ + qw( + + ) ] + ); + + +==> b1316 <== +# S1 +$garage->add_path( + qw( move_car move_LPs move_sofa + hoover_floor wash_floor )); + +# S2 +$garage->add_path( + qw( move_car move_LPs move_sofa + hoover_floor wash_floor )); + +==> b1317 <== +# S1 +my %config = ( + checkincludedtext => + 0, + includedcutoff => + 40, + includedratio => + 0.6, + quotere => '^[>:]', + antiquotere => + '^[<]' + , # so as not to reject dict(1) output +); + +# S2 +my %config = ( + checkincludedtext => + 0, + includedcutoff => + 40, + includedratio => + 0.6, + quotere => '^[>:]', + antiquotere => + '^[<]' + , # so as not to reject dict(1) output +); + +==> b1318 <== + my $h = + $integerValue->copy()->bmod( + '16' + )->bstr(); + + my $h = + $integerValue->copy()->bmod( + '16' + )->bstr(); + +==> b1319 <== +# S1 +my @tests = ( + { + expects => [ + sort + qw/ Class::Moose::RoleList1 Class::Moose::RoleList2 / + ], + }, +); + +# S2 +my @tests = ( + { + expects => [ + sort + qw/ Class::Moose::RoleList1 Class::Moose::RoleList2 / + ], + }, +); + +==> b1321 <== +my $parser = + Pod::Markdown->new( + + perldoc_fragment_format => + 'pod_simple_html', # CodeRef ( $self, $text ) + markdown_fragment_format => + 'pod_simple_html', # CodeRef ( $self, $text ) + include_meta_tags => 0, + ); + +my $parser = + Pod::Markdown->new( + + perldoc_fragment_format => + 'pod_simple_html', # CodeRef ( $self, $text ) + markdown_fragment_format => + 'pod_simple_html', # CodeRef ( $self, $text ) + include_meta_tags => 0, + ); + +==> b1322 <== + my$result + =$self->bus()->connection_settermchar( + $self->connection_handle(),$termchar + ); + + my$result + =$self->bus()->connection_settermchar( + $self->connection_handle(),$termchar + ); + +==> b1324 <== + if ( + blessed( + $element->statement ) + and + $element->statement + ->isa( +'PPI::Statement::Variable' + ) + and + $element->statement + ->type eq 'our' + and any { + $_->symbol eq '@ISA' + } $element->statement + ->symbols + ); + + if ( + blessed( + $element->statement ) + and + $element->statement + ->isa( +'PPI::Statement::Variable' + ) + and + $element->statement + ->type eq 'our' + and any { + $_->symbol eq '@ISA' + } $element->statement + ->symbols + ); + +==> b1325 <== +WriteMakefile( + PREREQ_PM => { + 'Tk' => + '800.025', + 'Tk::DiffText' => 0, + 'Perl::Tidy' => 0 + , # comes in the perltidy application + 'Log::Log4perl' => '1.0', + 'version' => 0 + , # used to detect old Tk's and use different widgets where required + }, +); + +WriteMakefile( + PREREQ_PM => { + 'Tk' => + '800.025', + 'Tk::DiffText' => 0, + 'Perl::Tidy' => 0 + , # comes in the perltidy application + 'Log::Log4perl' => '1.0', + 'version' => 0 + , # used to detect old Tk's and use different widgets where required + }, +); + +==> b1327 <== + @where= + $self->_where() + ->where_clause('Fey::FakeDBI', + 'no WHERE') + if$self->_has_where(); + + @where= + $self->_where() + ->where_clause('Fey::FakeDBI', + 'no WHERE') + if$self->_has_where(); + +==> b1328 <== + my $exchange + = $self->_channel()->exchange( + name => $self->_fq_name('order'), + ); + + my $exchange + = $self->_channel()->exchange( + name => $self->_fq_name('order'), + ); + +==> b1330 <== + print $tbl->render_row( + [ # + "$STATUS->{$status}->[2] $STATUS->{$status}->[0] $RESET", + "$STATUS->{$status}->[2] @{[ $total->{data}->{$status} // 0 ]} $RESET", + ] + ); + + print $tbl->render_row( + [ # + "$STATUS->{$status}->[2] $STATUS->{$status}->[0] $RESET", + "$STATUS->{$status}->[2] @{[ $total->{data}->{$status} // 0 ]} $RESET", + ] + ); + +==> b1331 <== +# S1 +WriteMakefile PREREQ_PM => + { # e.g., Module::Name => 1.1 + 'ExtUtils::MakeMaker' => + 5.45, + 'LWP::UserAgent' => 0, + }, + ; + +# S2 +WriteMakefile PREREQ_PM => + { # e.g., Module::Name => 1.1 + 'ExtUtils::MakeMaker' => + 5.45, + 'LWP::UserAgent' => 0, + }, + ; + + +==> b1332 <== + # S1 + $b->configure ( -text => $dayArray[$col], # disable the button + -state => 'disabled' ); + + # S2 + $b->configure ( -text => $dayArray[$col], # disable the button + -state => 'disabled' ); + +==> b1333 <== + # S1 + $_[ + HEAP + + ]->{postback_tests}->{$test_number} = + + "ok $test_number\n"; + + # S2 + $_[ + HEAP + + ]->{postback_tests}->{$test_number} = + + "ok $test_number\n"; + +==> b1334 <== +# S1 +my $pcc_tt = Params::CheckCompiler::validation_for( +params => + [ +{ type => Int }, +{ type => ArrayRef }, +{ type => InstanceOf ['DateTime'], optional => 1 }, + ], +); + +# S2 +my $pcc_tt = Params::CheckCompiler::validation_for( +params => + [ +{ type => Int }, +{ type => ArrayRef }, +{ type => InstanceOf ['DateTime'], optional => 1 }, + ], +); + +==> b1336 <== + # S1 + my $expect = + [ + { + type => 'preformatted', + text => "preformatted line\n", + } + ]; + + # S2 + my $expect = + [ + { + type => 'preformatted', + text => "preformatted line\n", + } + ]; + +==> b1337 <== +# S1: 'new' was given type 'i' here + print JSON::PP-> + new->indent + ->space_after + ->canonical + ->convert_blessed + ->encode( + $self->{abbrev} + ? $schema + ->abbreviated + : $schema ); + +# S2: 'new' was given type 'w' here, but type 'i' is better + print JSON::PP-> + new->indent + ->space_after + ->canonical + ->convert_blessed + ->encode( + $self->{abbrev} + ? $schema + ->abbreviated + : $schema ); + +==> b1338 <== + # S1: + ( + sockaddr_in ( getsockname( $_[0]->[_SOCKET] ) ) + )[0]; + + # S2: + ( + sockaddr_in ( getsockname( $_[0]->[_SOCKET] ) ) + )[0]; + +==> b1339 <== + # S1 + $LANGUAGE{'groff'}={ + 'filename'=>'\\.groff$', + 'regex'=>'', + 'patterns'=>[{'name'=>'comment','regex'=>'\\\\".*?$','style'=>'comment','childregex'=>[]}] + }; + + # S2 + $LANGUAGE{'groff'}={ + 'filename'=>'\\.groff$', + 'regex'=>'', + 'patterns'=>[{'name'=>'comment','regex'=>'\\\\".*?$','style'=>'comment','childregex'=>[]}] + }; + +==> b1340 <== +# S1 +print to_json({success => $success ? 1 : 0}); + +# S2 +print to_json({success => $success ? 1 : 0}); + +==> b1345 <== + # S1 + $insert = [ + map { [ _subnet_as_v6( $_->[ 0 ] ), $_->[ 1 ] ] } + @{$insert} ]; + + # S2 + $insert = [ + map { [ _subnet_as_v6( $_->[ 0 ] ), $_->[ 1 ] ] } + @{$insert} ]; + +==> b1346 <== + return ( + $s + $t - $a / 3, + -0.5 * ( $s + $t ) + + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ), + -0.5 * ( $s + $t ) - + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ) + ); + + return ( + $s + $t - $a / 3, + -0.5 * ( $s + $t ) + + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ), + -0.5 * ( $s + $t ) - + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ) + ); + + return ( + $s + $t - $a / 3, + -0.5 * ( $s + $t ) + + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ), + -0.5 * ( $s + $t ) - + sqrt(-1) * sqrt(3) / 2 * ( $s - $t ) - + ( $a / 3 ) + ); + +==> b1348 <== + # S1 + $try = + $costs[ $j - $i ][$k] + + $costs[ $k + 1 ][$j] + + $row1 * + $col1 * + $col2 ; + + # S2 + $try = + $costs[ $j - $i ][$k] + + $costs[ $k + 1 ][$j] + + $row1 * + $col1 * + $col2 ; + + +==> b1349 <== + # S1 + my($database,$primary_id, + $optional_id,$comment) + =$self + ->_rearrange([qw(DATABASE + PRIMARY_ID + OPTIONAL_ID + COMMENT + )], + @args + ); + + # S2 + my($database,$primary_id, + $optional_id,$comment) + =$self + ->_rearrange([qw(DATABASE + PRIMARY_ID + OPTIONAL_ID + COMMENT + )], + @args + ); + + +==> b1354 <== +# S1 +while (my ( $sid, $u, $lasttime )= + split( /:/, ) ) + + # S2 + while ( + my ( $sid, $u, $lasttime ) + =split( /:/, ) ) + + +==> b1355 <== +# S1 +my $data = + [ { value => "Tom" }, { value => 33 }, { value => "Sales" }, ]; + +# S2 +my $data = + [ { value => "Tom" }, { value => 33 }, { value => "Sales" }, ]; + + +==> b1356 <== +# S1 +%phonebook + = ( + "Bob" => "247305", + "Phil" => "205832", + "Sara" => "226010" + ); + +# S2 +%phonebook + = ( + "Bob" => "247305", + "Phil" => "205832", + "Sara" => "226010" + ); + + +==> b1357 <== +# S1 +my ( $m, $i, $j ) + =( length $P, 0, + -1 ); + +# S2 +my ( $m, $i, $j ) + =( length $P, 0, + -1 ); + +==> b1371 <== +# S1 +my ( +$xpos, +$ypos, +$font_size + ) + =( + 100, + 700, + 12 + ); + +# S2 +my ( +$xpos, +$ypos, +$font_size + ) + =( + 100, + 700, + 12 + ); + + +==> b1375 <== + # S1 + $self->{'col_ids'} ||= + [ + $self->numbering .. $self->width() + $self->numbering - 1 ] + if ( defined( $self->width() ) && $self->width() > 0 ); + + # S2 + $self->{'col_ids'} ||= + [ + $self->numbering .. $self->width() + $self->numbering - 1 ] + if ( defined( $self->width() ) && $self->width() > 0 ); + +==> b1376 <== + # S1 + unless ( + opendir ( CATDIR, $catdir ) ) + + # S2 + unless ( + opendir ( CATDIR, $catdir ) ) + + +==> b1378 <== +if +( +$biblio +-> +{subtitle} +) +{ +&newsubtitle +( +$biblionumber +, +$biblio +-> +{subtitle} +, +) +; +} + +==> b1379 <== +# S1 +print star ( + 'Sol', + planet ( + 'Earth', moon ('Lunar') + ), ); + +# S2 +print star ( + 'Sol', + planet ( + 'Earth', moon ('Lunar'), + ), ); + + +==> b1381 <== +my $formatter = new HTML::FormatPS( + 'PaperSize' => 'Letter', + 'LeftMargin' => 20, # in points + 'RightMargin' => 20, # ditto + 'TopMargin' => 10, 'BottomMargin' => 30, + 'FontFamily' => 'Helvetica', +); + +my $formatter = new HTML::FormatPS( + 'PaperSize' => 'Letter', + 'LeftMargin' => 20, # in points + 'RightMargin' => 20, # ditto + 'TopMargin' => 10, 'BottomMargin' => 30, + 'FontFamily' => 'Helvetica', +); + +==> b1384 <== + eval{ + my@a=(foo=>'baz',bar=>'quux'); + validate(@a,{foo=>{regex=>qr/^baz$/},bar=>{regex=>'uqqx'}}, + ); + }; + + eval{ + my@a=(foo=>'baz',bar=>'quux'); + validate(@a,{foo=>{regex=>qr/^baz$/},bar=>{regex=>'uqqx'}}, + ); + }; + + +==> b1385 <== +( + # optional glob + { + sub => 'sub26', + p => [ + foo => 1, + bar => do { local *BAR; *BAR }, + ], + expect => q{}, + }, +); + +( + # optional glob + { + sub => 'sub26', + p => [ + foo => 1, + bar => do { local *BAR; *BAR }, + ], + expect => q{}, + }, +); + +==> b1386 <== +# S1 +open( OUT, + ">" + . Bio::Root::IO->catfile( + "t", "out.pfam" + ), +); + +# S2 +open( OUT, + ">" + . Bio::Root::IO->catfile( "t", + "out.pfam", ), +); + +==> b1387 <== +unlink( + Bio::Root::IO->catfile( + "t", "gcg.out" + ) +); + +unlink( + Bio::Root::IO->catfile( + "t", "gcg.out", ) +); + +==> b1390 <== + seek + ( + FH, + $end, + 0 + , + + ) + ; + + seek + ( + FH, + $end, + 0 + + ) + ; + +==> b1392 <== +if ( ioctl ( STDERR, $TIOCGWINSZ, + $winsize, ) + ) +{ + ...; +} + +if ( ioctl ( STDERR, $TIOCGWINSZ, $winsize + ) + ) +{ + ...; +} + +==> b1393 <== + push ( + @guaranteedata, + { + borrowernumber => $guarantees->[$i]->{'borrowernumber'}, + cardnumber => $guarantees->[$i]->{'cardnumber'}, + name => $guarantees->[$i]->{'firstname'} . " " + . $guarantees->[$i]->{'surname'}, + } + ) ; + + push ( + @guaranteedata, + { + borrowernumber => $guarantees->[$i]->{'borrowernumber'}, + cardnumber => $guarantees->[$i]->{'cardnumber'}, + name => $guarantees->[$i]->{'firstname'} . " " + . $guarantees->[$i]->{'surname'}, + } + ) ; + +==> b1394 <== +SOAP::Transport::HTTP::Daemon->new ( + LocalAddr => $host, + LocalPort => $port, + Reuse => 1, +)->dispatch_with ({ 'urn:WishListCustomer' => 'WishListCustomer' } ) + ->objects_by_reference ('WishListCustomer')->handle ; + +SOAP::Transport::HTTP::Daemon->new (LocalAddr => $host, + LocalPort => $port, + Reuse => 1,) + ->dispatch_with ({ 'urn:WishListCustomer' => 'WishListCustomer' } ) + ->objects_by_reference ('WishListCustomer')->handle ; + + +==> b1395 <== + # The old = break is under stress and must be ignored + if(my ($safari_build, $safari_minor) = + split /\./, $1) + { + ...; + } + + if(my ($safari_build, $safari_minor) = + split /\./, $1) + { + ...; + } + + +==> b1396 <== + print 'not ' + unless ( near ( + great_circle_distance ( 0, 0, 0, pi / 2 ), pi / 2 + ) ); + + print 'not ' + unless ( near ( + great_circle_distance ( 0, 0, 0, pi / 2 ), pi / 2 + ) ); + + +==> b1397 <== + ( + my $msg = sprintf ( + gettext("%s: fatal error at line %d:\n"), $progname, $line + ) + . "@_\n" + ) =~ tr/\0//d; + + ( + my $msg = sprintf ( + gettext("%s: fatal error at line %d:\n"), $progname, $line + ) + . "@_\n" + ) =~ tr/\0//d; + + +==> b1399 <== +use constant GRAPH_SIZE => 100; +for ( my $i = 0 ; + $i < @$data ; + $i++ ) + { + $polygon->addPt( + ORIGIN_X_COORD + + GRAPH_SIZE + / ( @$data - 1 ) + * $i, + ORIGIN_Y_COORD + - $$data[$i] + * GRAPH_SIZE + / LOAD_MAX + ); + } ## end for ( my $i = 0; $i < ...) + +for ( my $i = 0 ; + $i < @$data ; + $i++ ) + { + $polygon->addPt( + ORIGIN_X_COORD + + GRAPH_SIZE + / ( @$data - 1 ) + * $i, + ORIGIN_Y_COORD + - $$data[$i] + * GRAPH_SIZE + / LOAD_MAX, + ); + } ## end for ( my $i = 0; $i < ...) + +==> b140 <== +$cmd[$i] = + [ $s, $e, $cmd, \@hunk, $i ]; + +$cmd[$i] = + [ $s, $e, $cmd, \@hunk, $i ]; + +==> b1401 <== + my $moon_variation = + 0.6583 * + sin( + torad( + 2 * + ( + $moon_corrected_longitude + - $sun_lambda + ) ) ); + + my $moon_variation = + 0.6583 * + sin( + torad( + 2 * + ( + $moon_corrected_longitude + - $sun_lambda + ) ) ); + + +==> b1402 <== +ok ( 3, + int( + at ( sum ( conv2d ( $b, $a, { Boundary => 'Reflect' } ) - $ans ) ) + ) == 0 +); + +ok ( 3, + int( + at ( sum ( conv2d ( $b, $a, { Boundary => 'Reflect' } ) - $ans ) ) + ) == 0 +); + + +==> b1403 <== + $template->param( + index => $index, + index2 => $index2, + "f1_$result" => "f1_" + . $result, + ); + + $template->param( + index => $index, + index2 => $index2, + "f1_$result" => "f1_" + . $result, + ); + +==> b1404 <== +my %MyTokens= ( + '\tiny' => { Type => 'local' }, + '\small' => { Type => 'local' }, + '\scriptsize' => { Type => 'local' }, + '\footnotesize' => + { Type => 'local' }, +); + +my %MyTokens= ( + '\tiny' => { Type => 'local' }, + '\small' => { Type => 'local' }, + '\scriptsize' => { Type => 'local' }, + '\footnotesize' => + { Type => 'local' }, +); + +==> b1408 <== + $registry->add_type_constraint( + Moose::Meta::TypeConstraint::Parameterizable->new( + parent => + Moose::Util::TypeConstraints::find_type_constraint( + 'Ref' ), + constraint_generator => sub { + + return sub { + foreach my $x ( @$_ ) { + ( $check->( $x ) ) + || return; + } + } + }, ) ); + + $registry->add_type_constraint( + Moose::Meta::TypeConstraint::Parameterizable->new( + parent => + Moose::Util::TypeConstraints::find_type_constraint( + 'Ref' ), + constraint_generator => sub { + + return sub { + foreach my $x ( @$_ ) { + ( $check->( $x ) ) + || return; + } + } + }, ) ); + + +==> b1409 <== + local(%cached_env_img,%id_map, + %symbolic_labels,%latex_labels,) + if($FIXEDDIR&&$NO_SUBDIR); + + local(%cached_env_img,%id_map,%symbolic_labels, + %latex_labels,) + if($FIXEDDIR&&$NO_SUBDIR); + +==> b1410 <== +my $line = join( LD_X, map { LD_H x ( $_ + 2 ) } @$widths ); + +my $line = join( LD_X, map { LD_H x ( $_ + 2 ) } @$widths ); + +==> b1413 <== + &PDL::_conv2d_int( + $a, $kern, $c, + ( !( defined $opt + && exists $$opt{Boundary} ) + ) ? 0 : ( + ( $$opt{Boundary} eq "Reflect" + ) + 2 * ( $$opt{Boundary} eq "Truncate" ) + ) + ); + + &PDL::_conv2d_int( + $a, $kern, $c, + ( !( defined $opt + && exists $$opt{Boundary} ) + ) ? 0 : ( + ( $$opt{Boundary} eq "Reflect" + ) + 2 * ( $$opt{Boundary} eq "Truncate" ) + ) + ); + +==> b1415 <== +if ( ioctl( STDERR, $TIOCGWINSZ, + $winsize ) + ) +{ + ...; +} + +if ( ioctl( STDERR, $TIOCGWINSZ, + $winsize ) + ) +{ + ...; +} + +==> b1419 <== +print( + Tr( td( { -class => "forumTitle" }, + $info{"name"} ) + ), + +); + +print( + Tr( td( { -class => "forumTitle" }, + $info{"name"} ) + ), + +); + +==> b1421 <== +if ( L2hos + ->Link( + $image2, $image1, + ) ) +{ +L2hos + ->Unlink($tmp); +} + +if ( L2hos + ->Link( + $image2, $image1, + ) ) +{ +L2hos + ->Unlink($tmp); +} + +==> b1422 <== + $_ = ( + $INFO && $INFO =~ /^\d+$/ + ? join( + '', + $close_all, +"$t_title

\nThis document was generated using the\n", +"LaTeX2HTML", + " translator Version $TEX2HTMLVERSION\n", + "

Copyright © 1993, 1994, 1995, 1996,\n", + "Nikos Drakos, \n", + "Computer Based Learning Unit, University of Leeds.\n", + "
Copyright © 1997, 1998, 1999,\n", + "Ross Moore, \n", + "Mathematics Department, Macquarie University, Sydney.\n", + "

The command line arguments were:
\n ", + "latex2html $argv\n", + ( + ( $SHOW_INIT_FILE && ( $INIT_FILE ne '' ) ) + ? "\n

with initialization from: $INIT_FILE\n$init_file_mark\n" + : '' + ), +"

The translation was initiated by $address_data[0] on $address_data[1]", + $open_all, + $_, + ) + : join( + '', + $close_all, + "$INFO\n", + $open_all, + $_, + ) + ); + + +==> b1423 <== + if ( L2hos + ->Link( $image2, + $image1, + ) + ) + { + L2hos + ->Unlink($tmp); + } + + if ( L2hos + ->Link( $image2, + $image1, + ) + ) + { + L2hos + ->Unlink($tmp); + } + + +==> b1424 <== +$registry->add_type_constraint( Moose::Meta::TypeConstraint::Parameterizable + ->new( $a = 1; + $b = 1; + + ) ); + +$registry->add_type_constraint( Moose::Meta::TypeConstraint::Parameterizable + ->new( $a = 1; + $b = 1; + + ) ); + + +==> b1425 <== +my$sem=sub +{ + my$code=shift; + } + ->(sub + { + IPC::Semaphore->new(IPC_PRIVATE,$nsem, + S_IRWXU|S_IRWXG|S_IRWXO|IPC_CREAT); + } ); + +my$sem=sub +{ + my$code=shift; + } + ->(sub + { + IPC::Semaphore->new(IPC_PRIVATE,$nsem, + S_IRWXU|S_IRWXG|S_IRWXO|IPC_CREAT); + } ); + + +==> b1426 <== + return + $self->_mutate($label,$newseq,$length,); + + return + $self->_mutate($label,$newseq,$length,); + +==> b1427 <== +print join( "\n", + @intersection, + ), + "\n"; + +print join( "\n", + @intersection, + ), + "\n"; + +==> b1428 <== + is( + grep ( { $_->{branchcode} eq 'MYLIBRARY' and $_->{selected} == 1 } + @$libraries ), + 1, + 'Without selected parameter, my library should be preselected', + ); + + is( + grep ( { $_->{branchcode} eq 'MYLIBRARY' and $_->{selected} == 1 } + @$libraries ), + 1, + 'Without selected parameter, my library should be preselected', + ); + +==> b1430 <== + $t->post_ok( + "//$auth_userid:$password@/api/v1/advanced_editor/macros" => + json => $macro_values )->status_is(400) + ->json_is( '/errors' => [ { + message => "Read-only.", path => "/body/macro_id", + } ] ); + + $t->post_ok( + "//$auth_userid:$password@/api/v1/advanced_editor/macros" => + json => $macro_values )->status_is(400) + ->json_is( '/errors' => [ { + message => "Read-only.", path => "/body/macro_id", + } ] ); + + +==> b1431 <== + C4::Circulation::AddRenewal( + $issue->{ + 'borrowernumber'}, # borrowernumber + $item->itemnumber, + undef, undef, + $circ->{'date'}, + ) unless ($DEBUG); + + C4::Circulation::AddRenewal( + $issue->{ + 'borrowernumber'}, # borrowernumber + $item->itemnumber, + undef, undef, + $circ->{'date'}, + ) unless ($DEBUG); + +==> b1432 <== +$last = after ( + 7, + sub { print "not ok 3\n"; }, +); + +$last = after ( + 7, + sub { print "not ok 3\n"; }, +); + + +==> b1433 <== + return ( + ( $val || !exists $opts{$opt} ) ? + do { $opts{$opt} = 1 } : + do { delete $opts{$opt}; 1 } + ); + + return ( + ( $val || !exists $opts{$opt} ) ? + do { $opts{$opt} = 1 } : + do { delete $opts{$opt}; 1 } + ); + +==> b1435 <== +(-r _)? + do{do$vshnurc;&err($@)}: + &err( + "Cannot read $vshnurc") + if-f$vshnurc; + +(-r _)? + do{do$vshnurc;&err($@)}: + &err( + "Cannot read $vshnurc") + if-f$vshnurc; + + +==> b1436 <== + if ( + $included{'gold'} + && $yes_andor =~ /any/ + && $not_andor !~ /all/ + && ( + grep ( { $included{$_} } @COLORS ) + + grep ( { $excluded{$_} } @COLORS ) ) == 5 + ) + { + } + + if ( + $included{'gold'} + && $yes_andor =~ /any/ + && $not_andor !~ /all/ + && ( grep ( { $included{$_} } @COLORS ) + + grep ( { $excluded{$_} } @COLORS ) ) == 5 + ) + { + } + +==> b1439 <== + $pt += + ( 0.1734 - 0.000393 * $t ) * dsin($m) + + 0.0021 * dsin( 2 * $m ) + - 0.4068 * dsin($mprime) + + 0.0161 * dsin( 2 * $mprime ) + - 0.0004 * dsin( 3 * $mprime ) + + 0.0104 * dsin( 2 * $f ) + - 0.0051 * dsin( $m + $mprime ) + - 0.0074 * dsin( $m - $mprime ) + + 0.0004 * dsin( 2 * $f + $m ) + - 0.0004 * dsin( 2 * $f - $m ) + - 0.0006 * dsin( 2 * $f + $mprime ) + + 0.0010 * dsin( 2 * $f - $mprime ) + + 0.0005 * dsin( $m + 2 * $mprime ); + + $pt += + ( 0.1734 - 0.000393 * $t ) * dsin($m) + + 0.0021 * dsin( 2 * $m ) - + 0.4068 * dsin($mprime) + + 0.0161 * dsin( 2 * $mprime ) - + 0.0004 * dsin( 3 * $mprime ) + + 0.0104 * dsin( 2 * $f ) - + 0.0051 * dsin( $m + $mprime ) + - 0.0074 * dsin( $m - $mprime ) + + 0.0004 * dsin( 2 * $f + $m ) - + 0.0004 * dsin( 2 * $f - $m ) + - 0.0006 * dsin( 2 * $f + $mprime ) + + 0.0010 * dsin( 2 * $f - $mprime ) + + 0.0005 * dsin( $m + 2 * $mprime ); + +==> b1440 <== + $comp = ( + $form->[3] ? ( + $im3->dummy( 0, 3 ) > 0 ) * + 255 : + ( $im3 > 0 ) ); + + $comp = ( + $form->[3] ? ( + $im3->dummy( 0, 3 ) > 0 ) * + 255 : + ( $im3 > 0 ) ); + +==> b1441 <== + my $my_handler = + new XML::Handler::YAWriter ( 'Output' => $fileHandler, + + ); + + my $my_handler = + new XML::Handler::YAWriter ( 'Output' => $fileHandler, + + ); + + +==> b1442 <== + $tmpstr = sprintf ( + $self->jump_to_selected_sformat(), + $_, + ); + + $tmpstr = sprintf ( + $self->jump_to_selected_sformat(), + $_, + ); + +==> b1443 <== + @matches = map { + $pk = $_ . '::'; + grep ( /^\w+$/ && ( + $sym = "${pk}$_", defined *$sym{CODE}, + + ), + keys %$pk ); + } _search_ISA($pkg); + + @matches = map { + $pk = $_ . '::'; + grep ( /^\w+$/ && ( + $sym = "${pk}$_", defined *$sym{CODE}, + + ), + keys %$pk ); + } _search_ISA($pkg); + + +==> b146 <== +# State 1 + +sub bubba { + while (1) { + if ( $#{ $i_cond->[ 1 ] } >= 0 ) { + ( $return, $val ) = + exec_stmt ( + $i_cond->[ 1 ] ); + } } } + +__END__ +# State 2 + +sub bubba { + while (1) { + if ( $#{ $i_cond->[ 1 ] } >= 0 ) { + ( $return, $val ) = + exec_stmt ( $i_cond->[ 1 ] ); + } } } + +==> b148 <== +# state 1 +@yydgoto=( + 1,25,140,86,36,129,141,155,90,159,28,82,38,48, + 132,40,91,147,134,151,160,29,130,77,78,158,30, +); + +# state 2 +@yydgoto=( + 1,25,140,86,36,129,141,155,90,159,28,82,38,48, + 132,40,91,147,134,151,160,29,130,77,78,158,30, +); + + +==> b156 <== +# State 1 +{ + + sub new_body_for + { + if ( defined $outname ) + { + return MIME::Body::File->new ( + $parser->output_path ( $head ) ); + } + } +} +__END__ +# State 2 +{ + + sub new_body_for + { + if ( defined $outname ) + { + return MIME::Body::File + ->new ( + $parser->output_path ( + $head ) ); + } + } +} + +==> b163 <== +# State 1 +Readonly::Scalar + my$EXPL + => + [ + 71, + 72 + ] + ; + +# State 2 + +Readonly::Scalar + my$EXPL + => + [ + 71, + 72 + ] + ; + + +==> b172 <== +# State 1 + +my%invalid_defaults= + (foo=>1,bar=>2, ); + +# state 2 + +my%invalid_defaults= + (foo=>1,bar=>2,); + +==> b173 <== +{ + + $self->{_all_list_funcs}= + { + hashify keys%{$self->{_list_funcs}}, + keys%{$self->{_add_list_funcs}} + }; + +} + +{ + + $self->{_all_list_funcs}= + { + hashify keys%{$self->{_list_funcs}}, + keys%{$self->{_add_list_funcs}} + }; + +} + +==> b174 <== +our %EXPORT_TAGS = + ( + all => + \@EXPORT_OK, + ); + +==> b177 <== +# State 1 +Readonly::Array + my@IGNORE_FOR_INTERPOLATION + =>( + q{$'},q{$$}, + q{$#},q{$:}, + ) + ;## no critic ( RequireInterpolationOfMetachars, ProhibitQuotedWordLists ) + +# State 2 +Readonly::Array + my@IGNORE_FOR_INTERPOLATION + =>( + q{$'},q{$$}, + q{$#},q{$:}, + ) + ;## no critic ( RequireInterpolationOfMetachars, ProhibitQuotedWordLists ) + + +==> b183 <== +{ + { + { + { + my $var=$parts[$i]->[0]; + if( $var->isa('PPI::Token::Symbol') + ||$var->isa('PPI::Token::Cast')) + { + return$TRUE + if _has_array_sigil($var); + } + } + } + } +} + + +==> b184 <== +Readonly::Hash my%CAPTURE_REFERENCE_ENGLISH=> +( hashify(qw{ $LAST_PAREN_MATCH $LAST_MATCH_START $LAST_MATCH_END }), + %CAPTURE_REFERENCE ) + ; + +==> b186 <== + # State 1 + if ($EVAL_ERROR) + { $errors->add_exception( + $self->_new_global_value_exception( + option_name => $option_name, + option_value => $theme_rule, + source => $source, + message_suffix => + q{is not syntactically valid.}, + ) + ); + } + + # State 2 + if ($EVAL_ERROR) + { $errors->add_exception( + $self->_new_global_value_exception( + option_name => $option_name, + option_value => $theme_rule, + source => $source, + message_suffix => + q{is not syntactically valid.}, + ) + ); + } + +==> b191 <== +$specification= +{ + name=>'test', + description=>'A boolean parameter for testing', + behavior=>'boolean', +}; + +$specification= +{ + name=>'test', + description=>'A boolean parameter for testing', + behavior=>'boolean', +}; + + +==> b192 <== +Readonly::Scalar + my$EXPL + => + [ + 240, + 241 + ] + ; + +Readonly::Scalar + my$EXPL + => + [ + 240, + 241 + ] + ; + + +==> b194 <== + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); + + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); + + +==> b198 <== + # State 1 + return ( + log( sqrt( ( $XSQP1* $YSQP1 )/ ( 1 + $X* $X + $Y* $Y ) ) ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) ) + * 2/ ( $pi* $X* $Y ); + + # State 2 + return ( + log( sqrt( ( $XSQP1* $YSQP1 )/ ( 1 + $X* $X + $Y* $Y ) ) ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) ) + * 2/ ( $pi* $X* $Y ); + +==> b199 <== +# State 1 + +{ + return( + log(sqrt(($XSQP1*$YSQP1)/(1+$X*$X+$Y*$Y))) + +$X*$RTYSQP1*atan2($X,$RTYSQP1) + +$Y*$RTXSQP1*atan2($Y,$RTXSQP1) + -$X*atan2($X,1) + -$Y*atan2($Y,1)) + *2/($pi*$X*$Y); +} + +# State 2 + +{ + return( + log(sqrt(($XSQP1*$YSQP1)/(1+$X*$X+$Y*$Y))) + +$X*$RTYSQP1*atan2($X,$RTYSQP1) + +$Y*$RTXSQP1*atan2($Y,$RTXSQP1) + -$X*atan2($X,1) + -$Y*atan2($Y,1)) + *2/($pi*$X*$Y); +} + +==> b203 <== + # State 1 + local(%names)=( + 'JAN',1,'FEB',2,'MAR',3,'APR',4, + 'MAY',5,'JUN',6,'JUL',7,'AUG',8, + 'SEP',9,'OCT',10,'NOV',11,'DEC',12 + ); + + # State 2 + local(%names)=( + 'JAN',1,'FEB',2,'MAR',3,'APR',4, + 'MAY',5,'JUN',6,'JUL',7,'AUG',8, + 'SEP',9,'OCT',10,'NOV',11,'DEC',12 + ); + + +==> b205 <== + if(testcmp({'-cmplines'=>\&msgcmp},$outfile,$cmpfile)){ + ...; + } + +==> b215 <== + # State 1 + local (%units)=( + "in", "in", "pt","pt","pc", "pi", + "mm", "mm","cm","cm","\\hsize", "%" + ); + + # State 2 + local (%units)=( + "in", "in", "pt","pt","pc", "pi", + "mm", "mm","cm","cm","\\hsize", "%" + ); + +==> b224 <== + # State 1 + my $newC =int( + ( + $v{'y'}+5 -int($c->canvasy($y)) -5 * $v{'width'} + )/10 + ); + + # State 2 + my $newC = + int( + ( + $v{'y'}+5 -int($c->canvasy($y)) -5 * $v{'width'} + )/10 + ); + + # state 3 + my $newC = + int( + ( + $v{'y'}+5 -int($c->canvasy($y)) -5 * $v{'width'} + )/10 + ); + + # State 4 = 1 + +==> b225 <== +# State 1 (opened up) +{ + { + { + if( + $IDXSIZE + &&( + ( $i=( $#MListOrder+1)-$IDXSIZE)> + 0 ) + ) + { + ...; + } + } + } +} + +# State 2 (tighter) + +{ + { + { + if( + $IDXSIZE + &&(($i=( $#MListOrder+1)-$IDXSIZE)>0) + ) + { + ...; + } + } + } +} + +==> b235 <== + foreach (sort(keys(%{ $gDtdGroups{$lDoctype} }))) { + ...; + } + +==> b237 <== + # State 1 + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + + # State 2 + + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + + # State 3 + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + + # State 4 + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + + # State 5 = State 1 + + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + +==> b242 <== + unless ( + $Printed{$index} + || ( $HasRef{$index} + && $TVisible{ $HasRef{$index} } ) + ) + + unless ( + $Printed{$index} + || ( $HasRef{$index} + && $TVisible{ $HasRef{$index} } ) + ) + +==> b249 <== +# State 1 +sub parallel_plates_viewfactor { + return $length * $width * + ( + log( sqrt( ( $XSQP1 * $YSQP1 ) / ( 1 + $X * $X + $Y * $Y ) ) ) + + $X * $RTYSQP1 * atan2( $X, $RTYSQP1 ) + + $Y * $RTXSQP1 * atan2( $Y, $RTXSQP1 ) - + $X * atan2( $X, 1 ) - + $Y * atan2( $Y, 1 ) ) * 2 / + ( $pi * $X * $Y ); +} + +==> b263 <== + # State 1 + my $eps = [ + $eps_box_front, 0.99, $eps_shield, + $eps_shield, $eps_shield, $eps_shield + ]; + + # State 2 + my $eps = [ + $eps_box_front, 0.99, $eps_shield, + $eps_shield, $eps_shield, $eps_shield + ]; + + +==> b298 <== +# State 1 +sub MAILhead_get_disposition +{ + local ( $disp, + $filename + ) + = ( '', + '' ); +} + +__END__ + +# State 2 +sub MAILhead_get_disposition +{ + local ( $disp, + $filename + ) + = ( '', + '' ); +} + + +==> b311 <== +# State 1 + +{ + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); +} + +# State 2 + +{ + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); +} + +==> b317 <== +# State 1 +my $xyz_b= +[ + [ 0, 0, $sepdis ], + [ 1, 0, $sepdis ], + [ 1, 1, $sepdis ], + [ 0, 1, $sepdis ] +]; + +# State 2 + +my $xyz_b= +[ + [ 0, 0, $sepdis ], + [ 1, 0, $sepdis ], + [ 1, 1, $sepdis ], + [ 0, 1, $sepdis ] +]; + +==> b357 <== + # State 1 + + if () + { + ( $psect, $pcard ) = + ( $sect, $card ); + } + + # State 2 + + if () + { + ( $psect, $pcard ) = + ( $sect, $card ); + } + +==> b358 <== + # State 2 + &smsg( sprintf( "(autoloading %s from byte %07o)\n", $__fun__, $__addr__ ) ) + if $Start_Pid == $$ && &debugging('autoload'); + + # State 2 + &smsg( + sprintf( "(autoloading %s from byte %07o)\n", $__fun__, + $__addr__ ) + ) if $Start_Pid == $$ && &debugging('autoload'); + + +==> b359 <== + # State 1 + @NNVN_w3 = ( + Unclutters, Unfetters, Unifies, Unites, + Unseats, Upgrades, Upstages, Uses, + Usurps, ); + + # State 2 + @NNVN_w3 = ( + Unclutters, Unfetters, Unifies, Unites, + Unseats, Upgrades, Upstages, Uses, + Usurps, ); + + +==> b360 <== +# State 1 +( + $verbose, $showall, + $short + ) + = ( + $opt_v, $opt_V, $opt_s + ); + +# State 2 +( + $verbose, $showall, + $short + ) + = ( + $opt_v, $opt_V, $opt_s + ); + + +==> b361 <== +# State 1 +@cols = ( + \@row1, \@row2, + \@row3 ); + +# State 2 + +@cols = ( + \@row1, \@row2, + \@row3 ); + +==> b362 <== + my@thou= + ("", + qw( M MM MMM )); + + my@thou= + ("", + qw( M MM MMM )); + +==> b363 <== +# State 1 +@_default_data{ + qw(_name _artist _publisher _ISBN _tracks _rating + _room _shelf ) + } + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + +# State 2 + +@_default_data{ + qw(_name _artist _publisher _ISBN _tracks _rating + _room _shelf ) + } + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + + +==> b364 <== +# State 1 + +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + +# State 2 +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + + +==> b365 <== +# State 1 +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + +# State 2 + +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + +==> b366 <== + +# State 1 +%desc = +(blue => "moon", + green => "egg", red => "Baron", +); + +# State 2 +%desc = +(blue => "moon", + green => "egg", red => "Baron", +); + + +==> b367 <== + # State 1 + %s2 = + ( "cat" => 1, "dog" => 2, "gorilla" => 3, + goldfish => 3 ); + + # State 2 + %s2 = + ( "cat" => 1, "dog" => 2, "gorilla" => 3, + goldfish => 3 ); + + +==> b368 <== + # State 1 + my %args = + ( + lines => 23, prompt => "--More--", + endprompt => "--No more--", @_ ); + + # State 2 + my %args = + ( + lines => 23, prompt => "--More--", + endprompt => "--No more--", @_ ); + + +==> b369 <== +# State 1 +my %sound = +( "homo sapiens vendax" => "Have a nice day!", + "h" => "???" ); + +# State 2 +my %sound = +( "homo sapiens vendax" => "Have a nice day!", + "h" => "???" ); + + +==> b370 <== + # State 1 + $impl->{ lc $key } = + { key => $key, + value => $newval }; + + # State 2 + $impl->{ lc $key } = + { key => $key, + value => $newval }; + +==> b371 <== +# State 1 +@_index_for{ + qw(name artist publisher ISBN tracks rating room shelf) + } = +( NAME, ARTIST, PUBLISHER, ISBN, TRACKS, RATING, + ROOM, SHELF ); + +# State 2 +@_index_for{ + qw(name artist publisher ISBN tracks rating room shelf) + } = +( NAME, ARTIST, PUBLISHER, ISBN, TRACKS, + RATING, + ROOM, SHELF +); + + +==> b372 <== +# State 1 + +multimethod multi => ( + A_Parent, B_Parent, C_Parent +) => sub { + print +"dispatched to &A_Parent::multi\n"; +}; + +# State 2 + +multimethod multi => ( + A_Parent, B_Parent, C_Parent +) => sub { + print +"dispatched to &A_Parent::multi\n"; +}; + + +==> b373 <== +# State 1 + +@sound{"mouse", "bird"}= ( + "ariba!","itortitawapuddytat" +); + +# State 2 + +@sound{"mouse", "bird"}= ( + "ariba!","itortitawapuddytat" +); + +==> b374 <== +# State 1 +@virtues = ( + "faith", "hope", @deadly_sins ); + +# State 2 +@virtues = ( + "faith", "hope", @deadly_sins ); + +==> b375 <== +# State 1 +foreach + ( + @very_long_list + ) +{ + if( + $token + ->can( + "pretty_print" + ) + ) + { + ... ; + } +} + +# State 2 + +foreach + ( + @very_long_list + ) +{ + if( + $token + ->can( + "pretty_print" + ) + ) + { + ... ; + } +} + +==> b376 <== +# State 1 + +multimethod multi => ( + A_Child, B_Child, C_Child +) => sub { + print +"dispatched to &A_Child::multi\n"; +}; + +# State 2 + +multimethod multi => ( + A_Child, B_Child, C_Child +) => sub { + print +"dispatched to &A_Child::multi\n"; +}; + +==> b377 <== +# State 1 +$graph->set( + y_tick_number => 8, + y_label_skip => 2, + bar_spacing => 4, + types => [ + "bars", + "linespoints" + ], +); + +# State 2 + +$graph->set( + y_tick_number => 8, + y_label_skip => 2, + bar_spacing => 4, + types => [ + "bars", + "linespoints" + ], +); + +==> b378 <== +# State 1 + +use constant BG_COLOR=>( + 255,255,255 +); + +# State 2 + +use constant BG_COLOR=>( + 255,255,255 +); + + +==> b379 <== +# State 1 +use + constant + AXIS_COLOR => + ( + 0, 0, 0 + ) ; + +# State 2 +use + constant + AXIS_COLOR => + ( + 0, 0, 0 + ) ; + +==> b380 <== +# State 1 +use constant BG_COLOR=>( + 255,255,255 +); + +# State 2 +use constant BG_COLOR=>( + 255,255,255 +); + +==> b381 <== + # state 1 + + my$self={ + firstName=>shift(), + lastName=>shift(), + }; + + # State 2 + my$self={ + firstName=>shift(), + lastName=>shift(), + }; + +==> b382 <== +# state 1 +my$hash={ + "I'm a"=>" little tea cup", + " short"=>" and stout..." +}; + +# state 2 +my$hash={ + "I'm a"=>" little tea cup", + " short"=>" and stout..." +}; + +==> b396 <== +# State 1 + +my $array3 = + [ "anonymous", + [ "array", "in", "an", "array" ], + { "plus" => "a", + "hash" => "in", + }, + "as", "well" + ]; + +# State 2 + +my $array3 = + [ "anonymous", + [ "array", "in", "an", "array" ], + { "plus" => "a", + "hash" => "in", + }, + "as", "well" + ]; + +==> b427 <== +# State 1 +@items = +( a ( {-href => "addforum.pl"}, "Add a Forum" ), + "Delete a Forum", + "Modify a Forum" +); + +# State 2 +@items = +( a ( {-href => "addforum.pl"}, "Add a Forum" ), + "Delete a Forum", + "Modify a Forum" +); + +==> b450 <== +my %reverse = +( + "left" => "right", + "right" => "left", + "" => "" +); + +my %reverse = +( + "left" => "right", + "right" => "left", + "" => "" +); + +==> b454 <== +# Complex +$diff = Math::BigFloat->new( ( + Math::BigFloat->new( + ( Math::BigFloat + ->new( + ( Math::BigFloat + ->new( + $China{gdp} + ->fmul + ( + $China{gdp_incr} + ) ) + ) + ->fdiv( + Math::BigFloat + ->new( + $China{pop} + ->fmul + ( + $China{pop_incr} + ) ) + ) ) ) + ->fsub( Math::BigFloat + ->new( + ( Math::BigFloat + ->new( + $USA{gdp} + ->fmul + ( + $USA{gdp_incr} + ) ) + ) + ->fdiv( + Math::BigFloat + ->new( + $USA{pop} + ->fmul + ( + $USA{pop_incr} + ) ) + ) ) ) ) +)->fabs() ); + + +==> b455 <== + # State 1 + + %u = + ( "cat" => 1, + "dog" => 2, + "gorilla" => 3, + goldfish => 3 + ); + + # State 2 + + %u = + ( "cat" => 1, + "dog" => 2, + "gorilla" => 3, + goldfish => 3 + ); + +==> b496 <== + my %package_details = ( LOCATION => $loc, + INST_DATE => $instdate, + INST_ROOT => $root, + INST_PACKLIST => $packlist, + INST_PPD => $ppd + ); + + my %package_details = ( LOCATION => $loc, + INST_DATE => $instdate, + INST_ROOT => $root, + INST_PACKLIST => $packlist, + INST_PPD => $ppd + ); + +==> b499 <== +if ( +/msie/ + ) +{ + msie( + $_ + ) + ; +} + +if ( +/msie/ + ) +{ + msie( + $_ + ) + ; +} + +if ( +/msie/ + ) +{ + msie( + $_ + ) + ; +} + +==> b507 <== + # State 1 + my%all_options=( + %{$opt}, + %{ + $self->{DEFAULTS} + } + ); + + # State 2 + my%all_options=( + %{$opt}, + %{ + $self->{DEFAULTS} + } + ); + + # State 3 + my%all_options= + (%{$opt},%{$self->{DEFAULTS}}); + + # State 4 + my%all_options= + (%{$opt},%{$self->{DEFAULTS}}); + +==> b511 <== +# State 1 (the - is type 'm' and did not have a bond strength) +$a + =i + - pdl( + 2, 3 ); + +# State 2 +$a + =i + -pdl( + 2, 3 ); + +==> b520 <== +# State 1 +my ( + $xp, + $yp + ) + = cursor ( + { Type => +'CrossHair' + }); + +# State 2 +my ( + $xp, + $yp + ) + = cursor ( + { Type => +'CrossHair' + }); + +==> b523 <== + foreach my $name (@$names) + { unless ($callcopy) { $ret .= << "EOC"} +XX +EOC + } + + foreach my $name (@$names) + { unless ($callcopy) { $ret .= << "EOC"} +XX +EOC + } + +==> b527 <== +$w2->points( + $x->index($ii), + sqrt( + $x->index( + $ii) ) +); + +$w2->points( + $x->index($ii), + sqrt( + $x->index( + $ii) ) +); + +$w2->points( + $x->index($ii), + sqrt( + $x->index( + $ii) ) +); + +$w2->points( + $x->index($ii), + sqrt( + $x->index( + $ii) ) +); + +==> b530 <== +ok( + tapprox( $a, + $b ) +); + +ok( + tapprox( $a, + $b ) +); + + +==> b534 <== +ok( + int( + $yp->at(0) ) + == 8 +); + +# State 2 + +ok( + int( + $yp->at(0) ) + == 8 +); + + +==> b538 <== +WriteMakefile( + 'NAME' => 'PDL', + 'VERSION_FROM' => 'Core/Version.pm', + 'PM' => \%pm, + 'MAN3PODS' => \%man3pods, + 'DIR' => + [ 'Pod', 'Gen', 'Core', 'Bad', 'Ops', 'Ufunc', + 'Primitive', 'Slices', 'Test', 'Math', 'Complex' + ], +); + +WriteMakefile( + 'NAME' => 'PDL', + 'VERSION_FROM' => 'Core/Version.pm', + 'PM' => \%pm, + 'MAN3PODS' => \%man3pods, + 'DIR' => + [ 'Pod', 'Gen', 'Core', 'Bad', 'Ops', 'Ufunc', + 'Primitive', 'Slices', 'Test', 'Math', 'Complex' + ], +); + + +==> b542 <== +my %init = + ( i => { + size => 'm_size', + off => 'poff', + init => '1-p_size' + }, + j => { + size => 'n_size', + off => 'qoff', + init => '1-q_size' + }, + ); + +my %init = + ( i => { + size => 'm_size', + off => 'poff', + init => '1-p_size' + }, + j => { + size => 'n_size', + off => 'qoff', + init => '1-q_size' + }, + ); + +==> b552 <== + # State 1 + $entries->[$_] = + { 'nextState' => $nextState, + 'flags' => $flags }; + + # State 2 + $entries->[$_] = + { 'nextState' => $nextState, + 'flags' => $flags }; + +==> b561 <== +sub insert_into_db { + + + + my (%sqlfuncs) + = ( + 'pgsql' => { + 'func' => \&common_sql_insert, + 'driver' => 'Pg', + 'autocommit' => 0, }, + 'oracle' => { + 'func' => \&common_sql_insert, + 'driver' => 'Oracle', + 'autocommit' => 0, }, + 'mysql' => { + 'func' => \&common_sql_insert, + 'driver' => 'mysql', + 'autocommit' => 1, },); + + } + + +==> b604 <== + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + + +==> b605 <== + # State 1 + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + + # State 2 + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + +==> b610 <== +# State 1 +elsif( + $Directives{'sortingdata0'}eq"location/ call number") + +__END__ + +# State 2 +elsif($Directives{'sortingdata0'}eq + "location/ call number") + +==> b611 <== + # State 1 + if ( + open + ( INFILE, +"$user_progs <$phone_out | $sort_progs |" + ) ) + + # State 2 + if ( + open + ( INFILE, +"$user_progs <$phone_out | $sort_progs |" + ) ) + + +==> b612 <== + # State 1 + if( + open + (INFILE, +"$user_progs <$phone_out | $sort_progs |" + )) + +__END__ + +# State 2 + if + ( + open + (INFILE, +"$user_progs <$phone_out | $sort_progs |" + )) + +==> b613 <== +my%where= + +( + Gary=>"Dallas",Lucy=>"Exeter", + Ian=>"Reading",Samantha=>"Oregon" +); + +==> b614 <== + if ( + open + ( SAVE, +"> $msgfile" + ) ) + + +==> b616 <== + my %hash= (Four => '4', + Five => '5', + Six => '6') ; + + my %hash= (Four => '4', + Five => '5', + Six => '6') ; + + +==> b617 <== +# State 1 +{ + my (%reverse_genetic_code) + = + ( 'A' => 'GCA GCC GCG GCT', + 'C' => 'TGC TGT', + 'D' => 'GAC GAT', + ); +} + +{ + my (%reverse_genetic_code) + = + ( 'A' => 'GCA GCC GCG GCT', + 'C' => 'TGC TGT', + 'D' => 'GAC GAT', + ); +} + +==> b623 <== + # State 1 + @hsp_datum = + ( + $hsp->range ( + 'query'), + $hsp->range ( + 'sbjct') ) ; + + # State 2 + @hsp_datum = + ( + $hsp->range ( + 'query'), + $hsp->range ( + 'sbjct') ) ; + +==> b626 <== +unless ( + open( FILEHANDLE, + $file ) ) + + unless ( + open( FILEHANDLE, + $file ) ) + + unless ( + open( FILEHANDLE, + $file ) ) + +==> b647 <== + my ( $i, + $len, + $output + ) + = ( 0, + 0, '' ); + + my ( $i, + $len, + $output + ) + = ( 0, + 0, '' ); + +==> b650 <== +%Bio::Tools::Sigcleave::WeightTable= + ( + 'H'=> + [ + 0,0,0,0,0,1,1,0,5,0,0,6,0,4,2,3.4 + ], + ); + +%Bio::Tools::Sigcleave::WeightTable= + ( + 'H'=> + [ + 0,0,0,0,0,1,1,0,5,0,0,6,0,4,2,3.4 + ], + ); + +==> b652 <== + # State 1 + if ( $strand == + 1 ) + { + ( + $insertbegin, + $insertend + ) + = ( + $self + -> + { +'seq' + } + -> + praeinsert_string( + $newseq, + $label + ) + ); + } + + # State 2 + if ( $strand == + 1 ) + { + ( + $insertbegin, + $insertend + ) + = ( + $self + -> + { +'seq' + } + -> + praeinsert_string( + $newseq, + $label + ) + ); + } + +==> b657 <== +if ( + defined ( + $seqfile)) + + +==> b689 <== + # require => to be in a list + has 'bar' => + ( is => 'ro', handles => qr/baz/, ); + + has 'bar' => + ( is => 'ro', handles => qr/baz/, ); + +==> b690 <== +coerce 'ArrayRefOfThings'=>from + 'ArrayRef[Int]'=>via +{[map{Thing->new(thing=>$_)}@{$_}]}; + +coerce 'ArrayRefOfThings'=>from + 'ArrayRef[Int]'=>via +{[map{Thing->new(thing=>$_)}@{$_}]}; + +==> b722 <== +# State 1 +has 'baz' => ( + is => 'ro', + default => 'BAZ' +); + +# State 2 +has 'baz' => ( + is => 'ro', + default => 'BAZ' +); + +==> b746 <== +# State 1 : +@eigenvalues= + eigenvalue( [ + [ 3, 4 ], [ 4, -3 ] + ] ); + +# State 2 : +@eigenvalues= + eigenvalue( [ + [ 3, 4 ], [ 4, -3 ] + ] ); + +@eigenvalues= + eigenvalue( [ + [ 3, 4 ], + [ 4, -3 ], + ] ); + +__END__ + +# This is the state if welded +@eigenvalues= eigenvalue( [ + [ 3, 4 ], [ 4, -3 ] ] ); + +# State if no weld +@eigenvalues= + eigenvalue( + [ + [ 3, 4 ], [ 4, -3 ] + ] + ); + +==> b747 <== + if ( @type + = grep /$data/i, + @Bio::Root::Err::ERR_TYPES + ) + +==> b750 <== + # S1 + $self->_testStrand( $other, $so ) + and not( + ( $self->start() > $other->end() + or $self->end() < + $other->start() ) + ) + +__END__ +# S2 + $self->_testStrand( $other, $so ) + and not( ( + $self->start() > $other->end() + or $self->end() < $other->start() + ) ) + + +==> b751 <== + # State 1 + unless ( + ($genefeatureshash) + && ( + scalar( + @{ $genefeatureshash->{ +'genefeatures' + } } ) ) + ) + + # State 2 + unless ( + ($genefeatureshash) + && ( + scalar( + @{ $genefeatureshash->{ +'genefeatures' + } } ) ) + ) + +==> b752 <== +# S1 +my$cmb=CPAN::Mirrored::By->new({ + continent=>"continent", + country=>"country", + http=>"http", + ftp=>"ftp", +}); + +# S2 +my$cmb=CPAN::Mirrored::By->new({ + continent=>"continent", + country=>"country", + http=>"http", + ftp=>"ftp", +}); + +==> b753 <== +# S1 +my $parser = + TAP::Parser->new( { + iterator => $iterator, + callbacks => \%callbacks, + } ); + +# S2 +my $parser = + TAP::Parser->new( { + iterator => $iterator, + callbacks => \%callbacks, + } ); + + +==> b756 <== + # s1 + if ( + !utf8::is_utf8( + $tab + -> + {lib} + ) ) + + # S2 + if ( + !utf8::is_utf8( + $tab + -> + {lib} + ) ) + +==> b760 <== + # State 1 + while ( + ( + my $tagfield, + my $tagsubfield, + my $liblibrarian, + my $kohafield + ) + = $sth->fetchrow + ) + # State 2 + while ( + ( + my $tagfield, + my $tagsubfield, + my $liblibrarian, + my $kohafield + ) + = $sth->fetchrow + ) + +==> b765 <== +# state 1 +foreach + my $name + ( + param $query) + +__END__ + +# state 2 +foreach + my $name + ( + param $query) + + +==> b775 <== + my @files = @ARGV = + ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + + my @files = @ARGV = + ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + + my @files = @ARGV = + ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + + my @files = @ARGV = + ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + +==> b777 <== +# state 1 +for ( + reverse + map { $_ } + @array + ) +{ + $r .= $_; +} + +# state 2 + +for ( + reverse + map { $_ } + @array + ) +{ + $r .= $_; +} + +==> b778 <== + # S1 + my $smallest + = ( + sort { + ( + ( + @q # + ) + ) + } + ); + + # s2 + my $smallest + = ( + sort { + ( + ( + @q # + ) + ) + } + ); + +==> b779 <== + $_[0] + ->end_code( + pop( + @{$_[0]->{'in_code'}} + )); + + $_[0] + ->end_code( + pop( + @{$_[0]->{'in_code'}} + )); + + +==> b780 <== +for + my $index( + GZIP_MIN_HEADER_SIZE.. + GZIP_MIN_HEADER_SIZE + + length($Name) + -1) + +__END__ +for my $index( + GZIP_MIN_HEADER_SIZE.. + GZIP_MIN_HEADER_SIZE + +length( + $Name)- + 1) + + +==> b787 <== +# State 1: the +GZIP is parsed as type p +for my $index ( GZIP_MIN_HEADER_SIZE + +1 .. GZIP_MIN_HEADER_SIZE + -GZIP_FEXTRA_HEADER_SIZE + +1 ) + +__END__ + +# State 2: all are type + +for my $index ( GZIP_MIN_HEADER_SIZE + +1 .. GZIP_MIN_HEADER_SIZE + + GZIP_FEXTRA_HEADER_SIZE + +1 ) + +==> b789 <== + my $wd = + ( + $self->splitpath( Cwd::getcwd(), 1 ) + )[1]; + + my $wd = ( + $self->splitpath( Cwd::getcwd(), 1 ) + )[1]; + +==> b826 <== + # State 1 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + # State 2 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + # State 3 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + # State 4 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + # State 5 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + +==> b860 <== +# Alternately deleting blank after the =cut +#!/usr/bin/perl -w + +=head1 NAME + +Net::ICal::Recurrence -- Represent a single recurrence rule + +=cut + +package Net::ICal::Recurrence; + + +==> b862 <== +# State 1 +sub _tz_dow { +return $oDoW[ + ( + localtime( + $time + ->as_int + ) + )[6] + ]; +} + +# State 2 (changed sub name to avoid perltidy complaint) +sub _tz_doW { +return $oDoW[ + ( + localtime( + $time + ->as_int + ) + )[6] + ]; +} + +==> b866 <== +# S1 +if ( open( MAGIC, + ">$magic" ) ) + +__END__ +# S2 +if + ( open +( MAGIC, ">$magic" ) ) + +__END__ + + +==> b872 <== +foreach + my $key + ( +sort ( +keys( +%{$self + ->[ + $level]} + ))) + +__END__ + +# S2 +foreach my $key + (sort ( + keys( + %{ + $self->[ + $level] + } + ) + )) + + +==> b878 <== + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + +==> b899 <== +explain + { + 1 => 1 + } ; + +explain + { + 1 => 1 + } ; + +==> b900 <== +${ + nucleic { + $seq_name + } + ->{'seq'} + } + = $_; + +# State 2 +${ + nucleic { + $seq_name + } + ->{'seq'} + } + = $_; + + +==> b901 <== +# State 1 +@tagged_texts = + walk_html( + $tree, + sub { [ 'MAYBE', $_[ 0 ] ] }, + \&promote_if_h1tag + ); + +# State 2 +@tagged_texts = walk_html( + $tree, + sub + { + [ 'MAYBE', $_[ 0 ] ] + }, + \&promote_if_h1tag +); + +==> b903 <== + # State 1 + @items[ $j + + 1 .. $#items + ] = + reverse + @items[ $j + + 1 .. $#items + ]; + + # State 2 + @items[ $j + + 1 .. $#items + ] = + reverse + @items[ $j + + 1 .. $#items + ]; + + +==> b904 <== +# State 1 + if + ( + -t) + +__END__ + +# State 2 + if + ( + -t) + +==> b905 <== +# state 1 + printf + gettext + ( + <<'EOF'), $progname; +Usage: %s [options] [changelog entry] +EOF + +# state 2 + + printf + gettext + ( + <<'EOF'), $progname; +Usage: %s [options] [changelog entry] +EOF + + +==> b908 <== +@spec = ( + [ 'stdout', *OUT, \$out ], + [ 'stderr', *ERR, \$err ] +); + +@spec = ( + [ 'stdout', *OUT, \$out ], + [ 'stderr', *ERR, \$err ] +); + + +==> b909 <== + # State 1 + $args{extra_linker_flags}= + [ + File::Spec->catfile($self->perl_inc(),$lib), + $self->split_like_shell($args{extra_linker_flags}) + ]; + + # State 2 + $args{extra_linker_flags}= + [ + File::Spec->catfile( $self->perl_inc(),$lib ), + $self->split_like_shell( $args{extra_linker_flags}) + ]; + + # State 3 + $args{extra_linker_flags}= + [ + File::Spec->catfile($self->perl_inc(),$lib), + $self->split_like_shell($args{extra_linker_flags}) + ]; + +==> b911 <== +# State 1 +my$test=( +semctl( +-1,0,0,0 +) +)[0]; + +# state 2 +my$test=( +semctl( +-1,0,0,0 +) +)[0]; + + +==> b912 <== + # State 1 + + my @binary_by_priority + = sort + { + ( + $Override{ + $a} + ? $Priority{ + $Override{ + $a} + [O_PRIORITY + ] + } + : 0 ) + <=> ( + $Override{ + $b} + ? $Priority{ + $Override{ + $b} + [O_PRIORITY + ] + } + : 0 ) + } @binary; + + # State 2 + + my @binary_by_priority + = sort + { + ( + $Override{ + $a} + ? $Priority{ + $Override{ + $a} + [O_PRIORITY + ] + } + : 0 ) + <=> ( + $Override{ + $b} + ? $Priority{ + $Override{ + $b} + [O_PRIORITY + ] + } + : 0 ) + } @binary; + + +==> b913 <== +# State 1 + elsif + ( + -t) + +__END__ +# State 2 + elsif + ( + -t) + +==> b917 <== +# State 1 + print + BODY + &q + ( + <<'EOT'); +: while ($ARGV[0] =~ /^-/) { +EOT + +# State 2 + print + BODY + &q + ( + <<'EOT'); +: while ($ARGV[0] =~ /^-/) { +EOT + +==> b923 <== +# State 1 +my %nodecount = + + ( + 'attribute' => 0, + 'CDMS' => 0, + 'comment' => 0, + 'element' => 0, + 'PI' => 0, + 'text' => 0, + ); + +# State 2 + +my %nodecount = + + ( + 'attribute' => 0, + 'CDMS' => 0, + 'comment' => 0, + 'element' => 0, + 'PI' => 0, + 'text' => 0, + ); + +==> b924 <== +foreach my $p( + sort{lc($a)cmp lc($b)} + keys%v + ) + +__END__ + +foreach my $p( + sort{lc($a)cmp lc($b)} + keys%v + ) + +==> b926 <== +my@str1=( +substr( +$strD,0,3 +), +substr( +$strD,3,4 +), +); + +# state 2 +my@str1=( +substr( +$strD,0,3 +), +substr( +$strD,3,4 +), +); + +==> b928 <== +# State 1 +${ + nucleic { + $seq_name + } + { + 'seq' + } + } = + $_; + +# State 2 + +${ + nucleic { + $seq_name + } + { + 'seq' + } + } = + $_; + + +==> b929 <== + # State 1: note that RELEASE_FILES is parsed as type G + #2: @{ + #2: tL + #3: ${ RELEASE_FILES { + #3: tLbGGGGGGGGGGGGGb{ + foreach my ${DISTRO}( + @{ + ${ + RELEASE_FILES { + $OS + } + } + } + ) + + # State 2: note that RELEASE_FILES is parsed as type w + #2: @{ + #2: tL + #3: ${ + #3: tL + #4: RELEASE_FILES + #4: wwwwwwwwwwwww + foreach my ${DISTRO}( + @{ + ${ + RELEASE_FILES { + $OS + } + } + } + ) + +==> b930 <== +# State 1 +$out + .=StripHTML( $a, $pre, $indent, + $leftovers ) . + "\n" . + $$indent; + +# State 2 +$out + .=StripHTML( $a, $pre, $indent, + $leftovers ) . + "\n" . + $$indent; + + +==> b931 <== +# State 1 + +print SAVEOUT ( $? & 127 ) ? + " (SIG#" . ( $? & 127 ) . ")" : "", + ( $? & 128 ) ? " -- core dumped" : "", + "\n"; + +# State 2 + +print SAVEOUT ( $? & 127 ) ? + " (SIG#" . ( $? & 127 ) . ")" : "", + ( $? & 128 ) ? " -- core dumped" : "", + "\n"; + +==> b932 <== +# s1 +my @parts + = decompose( '(\s+|/|\!|=)', + $line, undef, 1, undef, '["\']' ); + +# S2 +my @parts + = decompose( '(\s+|/|\!|=)', + $line, undef, 1, undef, '["\']' ); + + +==> b933 <== + # s1 + $tmp + = &DateCalc_DateDelta( $date1, + "+$dy:0:0:0:0:0:0", \$err, + 0 ); + + # s2 + $tmp + = &DateCalc_DateDelta( $date1, + "+$dy:0:0:0:0:0:0", \$err, + 0 ); + + +==> b934 <== + #4: pi () + #4: CCb{} + sub pi(); + + if ( + $t > + pi() + ) + + if + ( + $t > + pi() + ) + +==> b935 <== + @a = + multicall_return + { + "one", + "two" + } + $gimme; + + @a = + multicall_return + { + "one", + "two" + } + $gimme; + +==> b936 <== +# S1 +foreach my $x ( + sort{lc($a)cmp lc($b)} + keys %INC + ) + +__END__ + +# S2 +foreach my $x ( + sort{ + lc($a)cmp + lc($b) + } + keys %INC + ) + + +==> b938 <== + # S1: this is broken on input + $features->{$name}= + { + description=>$origin->{$name}{description}, + prereqs=> + _prereqs_from_1(undef,undef,$origin->{$name} + ), }; + + # S2 : This is not broken + $features->{$name}= + { + description=>$origin->{$name}{description}, + prereqs=>_prereqs_from_1(undef,undef,$origin->{$name}), }; + +==> b939 <== + # State 1 + if (not(-S $syslog_path or -c _)) { + return 0; + } + + # State 2 + if (not(-S $syslog_path or -c _)) { + return 0; + } + +==> b940 <== +# S1 + +my@todo= + ( +[$top,\@lines]); + +# S2 +my@todo= + ( +[$top,\@lines]); + + +==> b941 <== +# S1 + +($a,$q,$b)=( +$b,$c->_div($a,$b) +);# step 1 + +# S2 +($a,$q,$b)=( +$b,$c->_div($a,$b) +);# step 1 + +==> b943 <== + @aa = + $self + ->_rearrange + ( + [ + qw(EXPECT + BITS + FRAC + SEQDESC + SEQLENGTH + ) + ], + @args + ); + + @aa = + $self + ->_rearrange + ( + [ + qw(EXPECT + BITS + FRAC + SEQDESC + SEQLENGTH + ) + ], + @args + ); + +==> b945 <== +# State 1 +if ($printmask + [ $linen++ ] + ) +{ } + +# State 2 +if ($printmask + [ $linen++ ] + ) +{ } + +# State 3 +if ($printmask + [ $linen++ ] + ) +{ } + + +==> b946 <== +if ($optf) { + ($comp) =( + split ' ', $comp, $optf +1 + )[$optf]; +} + + +==> b947 <== +push @ARGV2 => [ + $dir, $intermediate++ ]; + + +==> b948 <== +my ( + $who, + $op, + $perm + ) + = ( + 0, '', + 0 + ); + +==> b949 <== +push @{ $remember{ $operator } + } => [ + $left, $right, $answer ]; + +__END__ +push @{ $remember{ $operator } + } => + [ $left, $right, $answer ]; + +==> b950 <== +{ + { + ( $mode, + $filename + ) + = + ( + $1, + $2 + ) + ; + } +} + +==> b951 <== +{ + { + ( $mode, + $filename ) + = ( + $1, $2 ); + } +} + + +==> b952 <== +my %so = ( + 'A' => 1, + 'J' => 11, + 'Q' => 12, + 'K' => 13 +); + +==> b953 <== +# State 1 +*$self={ + %opts,lines=>[],scrap=>'',EOF=>0, + count=>0,ends=>[], +}; + +# State 2 +*$self={ + %opts,lines=>[],scrap=>'',EOF=>0, + count=>0,ends=>[], +}; + +==> b954 <== +# State 1 +*$self = { +%opts, +lines => [], +scrap => '', +EOF => 0, +count => 0, +ends => [], +}; + +# State 2 +*$self = { +%opts, +lines => [], +scrap => '', +EOF => 0, +count => 0, +ends => [], +}; +__END__ + +*$self = { +%opts, +lines => [], +scrap => '', +EOF => 0, +count => 0, +ends => [], +}; + + +==> b956 <== +my ( $template, $loggedinuser, $cookie ) + =get_template_and_user ( + { + template_name => "parameters/stopwords.tmpl", + query => $input, + type => "intranet", + flagsrequired => + { parameters => 1, management => 1 }, + authnotrequired => 0, + debug => 1, } ); + + +==> b958 <== +while (<>) + { + chomp ; + $line=$_ ; + + if ( /\.start/ + or /\.next/ ) + { + ( $keyword, $filename, + $title + ) + =trim ( split /\s/, + trim ($line), + 3 + ) ; + $line + =$keyword + . " " + . $title ; + } + print "$line\n" ; + } + +==> b959 <== +{ + if (defined( + $symbol_table{$direccion} + )) +} + +==> b960 <== +# State 1 + +$cron = + pkgfile( $PACKAGE, + "cron.$type" + ) ; + +# State 2 + +$cron = + pkgfile( $PACKAGE, + "cron.$type" + ) ; + +==> b961 <== + my($u,$u1)= + ( $self + ->bzero(), + $self->bone() + ); + + my($u,$u1)= + ( $self + ->bzero(), + $self->bone() + ); + +==> b962 <== +# State 1 +{ + + sub state1 + { + if ( $x ) + { + return MIME::Body::File->new ( + $parser->output_path ( $head ) ); + } + + } +} + +# State 2 + +{ + + sub state2 + { + if ( $x ) + { + return MIME::Body::File->new ( + $parser->output_path ( $head ) ); + } + + } +} + +==> b963 <== +my @cellbits= +( + ['',' ',' +','','|','','','',' +'], + ['',' |','--+','','|','','','','--+'], +); + +my @cellbits= +( + ['',' ',' +','','|','','','',' +'], + ['',' |','--+','','|','','','','--+'], +); + +==> b964 <== +# State 1 +$mult= + ( + $coeffs->[$i]/ + 2)+ + ( $x- + $points[$i] + [0])* + ( + $coeffs->[$i+1] + -$coeffs + ->[$i])/ + (6*$delta); + +# State 2 + +$mult= + ( + $coeffs->[$i]/ + 2)+ + ( $x- + $points[$i] + [0])* + ( + $coeffs->[$i+1] + -$coeffs + ->[$i])/ + (6*$delta); + +==> b965 <== + # State 1 + if($codonTable->is_start_codon( + substr($seq, + 0, + 3))) + + # State 2 + if($codonTable->is_start_codon( + substr($seq, + 0, + 3))) + +==> b966 <== + # s1 + my @translations = ( + $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + + # s2 + my @translations = ( + $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + +==> b967 <== +my ( + $primary) = + $self + ->_rearrange + ( + [ + qw(PRIMARY + ) + ], + @args + ); + +my ( + $primary) = + $self + ->_rearrange + ( + [ + qw(PRIMARY + ) + ], + @args + ); + +==> b971 <== + # S1 + @keys = + grep { +/^_$keyprefix$type/i; + } ( + keys ( + %{$self} ) + ); + + # s2 + @keys = + grep { +/^_$keyprefix$type/i; + } ( + keys ( + %{$self} ) + ); + +==> b972 <== + # 3 cycle + $rev_order = + ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + $rev_order = + ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + $rev_order = + ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + $rev_order = + ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + # Stable + $rev_order = + ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + +==> b973 <== + my @translations = ( + $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + + my @translations = ( + $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + +==> b974 <== + $self->{'H'}= + [ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) + ]; + + $self->{'H'}= + [ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) + ]; + +==> b975 <== +foreach my $x ( + sort { lc($a) cmp lc($b) } + keys %INC + ) + +__END__ + +foreach my $x ( + sort { + lc($a) cmp lc($b) + } + keys %INC + ) + +==> b977 <== + threads->create( + sub { lock($COUNT) ; $COUNT++ ; } + )->join() ; + + threads->create( + sub { lock($COUNT) ; $COUNT++ ; } + )->join() ; + + threads->create( + sub { lock($COUNT) ; $COUNT++ ; } + )->join() ; + +==> b978 <== + $ans = threads->create( sub { + threads->create( + sub { $p->greeting } + )->join ; + } )->join ; + + $ans = threads->create( sub { + threads->create( + sub { $p->greeting } + )->join ; + } )->join ; + + +==> b979 <== +$self->{'H'}= + [ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) + ]; + +$self->{'H'}= + [ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) + ]; + +==> b981 <== + $self->{'H'} = + [ + $self->catfile( + $self->updir, 'Encode', 'encode.h' + ) + ]; + + $self->{'H'} = + [ + $self->catfile( + $self->updir, 'Encode', 'encode.h' + ) + ]; + + +==> b982 <== + do { + ok( 0 ==capture_warnings( + sub { + $_ = "x" ; + eval +"$strict no warnings '$warning_type'; $regex;" + ; + } + ), +"... and turning off '$warning_type' warnings suppressed it" + ) ; + } + + # S2 + do { + ok( 0 ==capture_warnings( + sub { + $_ = "x" ; + eval +"$strict no warnings '$warning_type'; $regex;" + ; + } + ), +"... and turning off '$warning_type' warnings suppressed it" + ) ; + } + + +==> b983 <== + # S1 + my $arg = { + module => sub + { + [ $self->containsmods ] + }, + }; + + # S2 + my $arg = { + module => sub + { + [ $self->containsmods ] + }, + }; + +==> b984 <== + unless ( + exists $self->{ + 'accession_number'} ) + { return "unknown"; + } + + unless ( + exists $self->{ + 'accession_number'} ) + { return "unknown"; + } + + +==> b985 <== + # State 1 + if ( + $seqType =~ /list|array/i ) + { return ( '', '' ) + unless + defined $self->{ + '_queryStrand'}; + } + + #State 2 + if ( + $seqType =~ /list|array/i ) + { return ( '', '' ) + unless + defined $self->{ + '_queryStrand'}; + } + + +==> b988 <== +my $seq = ( + new Bio::SeqIO( + '-format' => + 'fasta', + '-file' => + Bio::Root::IO + ->catfile( + "t", +"AAC12660.fa" + ) + ) +)->next_seq(); + +==> b989 <== +my $branch = ( + split( m#/#, $branchdata ) +)[5]; + +my $branch = ( + split( m#/#, $branchdata ) +)[5]; + + +==> b990 <== + print + H; + + print + H; + + +==> b991 <== + if( + &y_or_n + ( + < b992 <== + my @translations = ( + $self->transexonscreation( + $dna, \@transcripts ) + ); + +==> b994 <== +# State 1 +do +sub : +lvalue +{ + return; +} + +# State 2 +do +sub : +lvalue +{ + return; +} + +==> b995 <== +eval{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{{ + { + {} + } +}}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}; + +eval{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{ + { + {} + } +}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}; + +==> b996 <== + $x= + &{ $C + . "::__strip_zeros" + } + ([0,1,2,0,0,0]) ; + + $x= + &{ $C + . "::__strip_zeros" + } + ([0,1,2,0,0,0]) ; + +==> b997 <== + $x= + &{$CALC + ."::__strip_zeros" + }([0,1,2,0,0,0]); + + $x= + &{$CALC + ."::__strip_zeros" + }([0,1,2,0,0,0]); + +==> b998 <== +eval +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { {} } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }; + +==> b999 <== + # S1 + while ( + $line =~ + +s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e + ) +__END__ + +# S2 + while ( + $line =~ + +s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e ) + + +==> c100 <== + # Starting + eval { + substr( $$textref, $_[4], $_[1] + $_[5] ) = $extra; + } # need to check for sort_map_grep_eval in starting_one_line_block + + # Stable + eval { + substr( $$textref, $_[4], $_[1] + $_[5] ) = $extra; + } # need to check for sort_map_grep_eval in starting_one_line_block + + # Starting (note ';' before '#' ) + eval { substr( $$textref, $_[4], $_[1] + $_[5] ) = $extra; }; # need to check for sort_map_grep_eval in starting_one_line_block + + # Stable (note ';' before '#' ) + eval { substr( $$textref, $_[4], $_[1] + $_[5] ) = $extra; }; # need to check for sort_map_grep_eval in starting_one_line_block