Checking if your kit is complete... Looks good Writing Makefile for NTS::Template cp Template.pm blib/lib/NTS/Template.pm Manifying blib/man3/NTS::Template.3 PERL_DL_NONLAZY=1 /home/cpanrun/ia64/build/5.8.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/1....1..2 ok 1 my $a; my $test1 = $vars->{templ_vars}->{test1}; my $test3 = $vars->{templ_vars}->{test3}; my $test2 = $vars->{templ_vars}->{test2}; print("bbb"); print("aaa bbb"); print("aaa bbb"); print("aaa bbb"); print("aaa "); if ($a eq "bbb") { print("aaaaacerto"); } print(" "); if ($test1) { print(" ok, test1 "); } print(" "); if ($test2->{test2}) { print(" ok, test2.test2 "); } print(" "); if ($test1 eq $test2->{test2}) { print(" ok, test1 == test2.test2 "); } print(" "); if ($test1 eq "ok") { print(" ok, test1 == \"ok\" "); } print(" "); if ($test3 eq '1') { print(" ok, test3 "); } print(" "); if ($test1 && $test2->{test2} && $test3) { print(" ok, test1 AND test2.test2 AND test3 "); } print(" "); if ($test1 || $test3) { print(" ok, test1 OR test3 "); } print(" "); if ($test1 eq $test3) { print(" ok, test1 == test3 "); } else { print(" fail "); } print(" "); if ($test1 ne "fail") { print(" ok, test1 != \"ok\" "); } else { print(" fail "); } print(" "); if ($test2->{test2} ne "fail") { print(" ok, test2.test2 != \"ok\" "); } else { print(" fail "); } print(" "); if ($test1 eq $test3) { print(" ok, test1 == test3 "); } elsif ($test2->{test2} eq $test3) { print(" ok, test2.test2 == test3 "); } else { print(" fail "); } print(" "); unless ($test1 eq "fail") { print(" fail, test == \"fail\" "); } else { print(" ok "); } print(" "); bbbaaa bbbaaa bbbaaa bbbaaa ok, test1 ok, test2.test2 ok, test1 == test2.test2 ok, test1 == "ok" ok, test1 AND test2.test2 AND test3 ok, test1 OR test3 fail ok, test1 != "ok" ok, test2.test2 != "ok" fail fail, test == "fail" ok 2 ok t/2....1..2 ok 1 my $array; my $count; my $temp; my $test1 = $vars->{templ_vars}->{test1}; my $i; print(""); foreach $i (@{$array}) { print(" "); $temp = $test1; print(" "); } print(" "); $count = ""; print(" "); $count = '0'; print(" "); ok 2 ok t/3....1..2 ok 1 my $count; my $i; print(""); $count++; print(" "); $i->{count}++; print(" "); print($count); print(" "); 1 ok 2 ok t/4....1..2 ok 1 my $count; my $cont; my $x; my $i; my $soma; print(""); $soma = $x->{soma} + $i->{total}; print(" "); $cont++; print(" "); $cont--; print(" "); if ($count++ % '2') { print("ok"); } print(" "); ok 2 ok t/5....1..2 ok 1 my $PRINTF = sub { my ($x,$y) = @_; printf($x,$y); }; my $value; my $i; print(""); for ($i = '1' ; $i <= '2' ; $i++) { print(" "); &$PRINTF("%.2f" , $i); print(" "); } print(" "); $value->{temp_ok} = "5"; print(" "); &$PRINTF("%.2f" , $value->{temp_ok}); print(" "); 1.00 2.00 5.00 ok 2 ok t/6....1..2 ok 1 my $ENDIF; print("debug: "); if print(""); print($ENDIF); print(" "); syntax error at (eval 1) line 2, near "if print" ok 2 ok All tests successful. Files=6, Tests=12, 0 wallclock secs ( 0.18 cusr + 0.08 csys = 0.26 CPU) Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/NTS/Template.pm Installing /home/cpanrun/ia64/build/5.8.2/man/man3/NTS::Template.3 Appending installation info to /home/cpanrun/ia64/build/5.8.2/lib/5.8.2/IA64.ARCHREV_0-thread-multi/perllocal.pod