Checking if your kit is complete... Looks good Writing Makefile for Blatte cp lib/Blatte/Parser.pm blib/lib/Blatte/Parser.pm cp lib/Blatte/Syntax.pm blib/lib/Blatte/Syntax.pm cp lib/Blatte/Compiler.pm blib/lib/Blatte/Compiler.pm cp lib/Blatte/Ws.pm blib/lib/Blatte/Ws.pm cp lib/Blatte.pm blib/lib/Blatte.pm cp lib/Blatte/Builtins.pm blib/lib/Blatte/Builtins.pm /home/cpanrun/ia64/build/5.8.2/bin/perl "-Iblib/arch" "-Iblib/lib" bin/blatte.PL bin/blatte cp bin/blatte blib/script/blatte /home/cpanrun/ia64/build/5.8.2/bin/perl "-MExtUtils::MY" -e "MY->fixin(shift)" blib/script/blatte Manifying blib/man1/blatte.1 Manifying blib/man3/Blatte::Syntax.3 Manifying blib/man3/Blatte::Parser.3 Manifying blib/man3/Blatte::Compiler.3 Manifying blib/man3/Blatte::Ws.3 Manifying blib/man3/Blatte.3 Manifying blib/man3/Blatte::Builtins.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/arith......&Blatte::wrapws('', do { my $_first = $add; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) 1..4 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { my $_first = $multiply; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { my $_first = $divide; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { my $_first = $subtract; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 1 ok 2 ok 3 ok 4 ok t/array......&Blatte::wrapws('', do { my $_first = $aref; my @_rest = (&Blatte::wrapws(' ', do { my $_first = 'a'; my @_rest = (&Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', 'd'), &Blatte::wrapws(' ', 'e')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { use vars '$a'; $a = do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; []; }) &Blatte::wrapws('', do { my $_first = $aset; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', '0'), &Blatte::wrapws(' ', 'x')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', $a) &Blatte::wrapws('', do { my($a) = ((do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } })); do { my $_first = $push; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; }) &Blatte::wrapws('', do { my $a = do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } };; my $b = do { my $_first = $pop; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } };; do { my $_first = $b; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }) &Blatte::wrapws('', do { my $_first = $list; my @_rest = (&Blatte::wrapws(' ', '1'), &Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) 1..5 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 ok 1 ok 2 ok 3 ok 4 ok 5 ok t/hash.......1..1 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { my $_first = $hashref; my @_rest = (&Blatte::wrapws(' ', do { my $_first = $mkhash; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', 'd'), &Blatte::wrapws(' ', 'e'), &Blatte::wrapws(' ', 'f')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }), &Blatte::wrapws(' ', 'c')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 1 ok t/let........1..3 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { my($x) = (('17')); $x; }) ok 1 &Blatte::wrapws('', do { my($a) = (('1')); do { my($a, $b) = (('2'), ($a)); $b; }; }) ok 2 &Blatte::wrapws('', do { my $a = '2';; my $b = $a;; $b; }) ok 3 ok t/literal....&Blatte::wrapws('', 'a') &Blatte::wrapws('', 'a b') &Blatte::wrapws('', 'a\\b') 1..3 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 ok 1 ok 2 ok 3 ok t/str........&Blatte::wrapws('', do { my $_first = $uc; my @_rest = (&Blatte::wrapws(' ', 'abc')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { my $_first = $lc; my @_rest = (&Blatte::wrapws(' ', 'ABC')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { my $_first = $substr; my @_rest = (&Blatte::wrapws(' ', 'abcde'), &Blatte::wrapws(' ', '1'), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { my $_first = $substr; my @_rest = (&Blatte::wrapws(' ', 'abcde'), &Blatte::wrapws(' ', '-4'), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) 1..6 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:54 2007 # Current time GMT: Thu Jun 28 03:36:54 2007 # Using Test.pm version 1.24 ok 1 ok 2 ok 3 ok 4 &Blatte::wrapws('', do { if (&Blatte::true(do { my $_first = $streq; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'a')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } })) { 'yes'; } else { 'no'; } }) &Blatte::wrapws('', do { if (&Blatte::true(do { my $_first = $streq; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'b')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } })) { 'yes'; } else { 'no'; } }) ok 5 ok 6 ok t/sub........&Blatte::wrapws('', do { my $_first = sub { my $_named = shift; my($x) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); $x; }; my @_rest = (&Blatte::wrapws(' ', 'z')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) 1..4 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:55 2007 # Current time GMT: Thu Jun 28 03:36:55 2007 # Using Test.pm version 1.24 ok 1 &Blatte::wrapws('', do { use vars '$r'; $r = sub { my $_named = shift; my($x, $y) = map { &Blatte::unwrapws($_); } splice(@_, 0, 2); do { my $_first = $y; my @_rest = (&Blatte::wrapws(' ', $x)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $r; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'b')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', do { use vars '$f'; $f = sub { my $_named = shift; my($c) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); my $a = $_named->{a}; my $b = $_named->{b}; do { my $_first = 'a'; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', $b), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', $c)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $f; my @_rest = (&Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({a => '1', b => '2'}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 2 ok 3 &Blatte::wrapws('', do { use vars '$f2'; $f2 = sub { my $_named = shift; my($a) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); my $b = [@_]; do { my $_first = $b; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $f2; my @_rest = (&Blatte::wrapws(' ', 'x'), &Blatte::wrapws(' ', 'y'), &Blatte::wrapws(' ', 'z')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 4 ok t/syntax.....&Blatte::wrapws('', do { use vars '$if_foo'; $if_foo = sub { my $_named = shift; '1'; }; []; }) 1..1 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:55 2007 # Current time GMT: Thu Jun 28 03:36:55 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { my $_first = $if_foo; my @_rest = (&Blatte::wrapws(' ', '0')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 ok t/var........1..2 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:55 2007 # Current time GMT: Thu Jun 28 03:36:55 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { use vars '$f'; $f = 'foo'; []; }) &Blatte::wrapws('', $f) ok 1 &Blatte::wrapws('', do { use vars '$f'; $f = 'foo'; []; }) &Blatte::wrapws('', $f = 'bar') &Blatte::wrapws('', $f) ok 2 ok t/ws.........1..1 # Running under perl version 5.008002 for hpux # Current time local: Wed Jun 27 20:36:55 2007 # Current time GMT: Thu Jun 28 03:36:55 2007 # Using Test.pm version 1.24 &Blatte::wrapws('', do { my $_first = 'x'; my @_rest = (&Blatte::wrapws(' ', 'y')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 ok All tests successful. Files=10, Tests=30, 1 wallclock secs ( 1.00 cusr + 0.22 csys = 1.22 CPU) Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte.pm Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/Parser.pm Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/Syntax.pm Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/Compiler.pm Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/Ws.pm Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/Builtins.pm Installing /home/cpanrun/ia64/build/5.8.2/man/man1/blatte.1 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::Syntax.3 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::Parser.3 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::Compiler.3 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::Ws.3 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte.3 Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::Builtins.3 Installing /home/cpanrun/ia64/build/5.8.2/bin/blatte Appending installation info to /home/cpanrun/ia64/build/5.8.2/lib/5.8.2/IA64.ARCHREV_0-thread-multi/perllocal.pod