Hi The reason why the tests fail are following differences between the reference files and the output files (cdumps). It are all whitespace, print and warning changes...
--- Ref_Data/eslect.cdump_ref 2003-05-12 02:51:55.000000000 +0200 +++ eslect.cdump 2006-03-22 20:50:18.000000000 +0100 @@ -1,8 +1,8 @@ BEGIN { @ARGV or @ARGV= ; } -# eslect $var[2] ( ) { print } +# eslect $var[2] ( ) { print "$var[2]\n" } -$Heading=; +$Heading=; # Code generated by Shell::POSIX::Select v0.05, by tim(AT)TeachMePerl.com # NOTA BENE: Line 1 of this segment must start with {, so user can LABEL it @@ -131,7 +131,7 @@ $var = $Shell::POSIX::Select::looplist[$Reply - 1]; # set users' variable # USER'S LOOP-BLOCK BELOW - print ; ; + print ; ; # USER'S LOOP-BLOCK ABOVE # Making sure there's colon (maybe --- Ref_Data/nested_heading_prompt.cdump_ref 2003-05-12 02:51:59.000000000 +0200 +++ nested_heading_prompt.cdump 2006-03-22 20:50:20.000000000 +0100 @@ -131,10 +131,10 @@ # USER'S LOOP-BLOCK BELOW -# warn ; +# warn "inside Outer loop\n"; - $Heading=; - $Prompt=; + $Heading=; + $Prompt=; # Code generated by Shell::POSIX::Select v0.05, by tim(AT)TeachMePerl.com # NOTA BENE: Line 1 of this segment must start with {, so user can LABEL it @@ -144,7 +144,7 @@ _SEL_LOOP2: { # **** NEW SCOPE FOR SELECTLOOP #2 **** # critical for values's contents to be resolved in user's scope - local @Shell::POSIX::Select::looplist=( ); + local @Shell::POSIX::Select::looplist=( ); local $Shell::POSIX::Select::[EMAIL PROTECTED]::POSIX::Select::looplist; $Shell::POSIX::Select::DEBUG > 4 and do { @@ -264,8 +264,8 @@ # USER'S LOOP-BLOCK BELOW -# warn ; - print ; +# warn "inside Inner loop\n"; + print ; last OUTER; ; @@ -300,7 +300,7 @@ } # **** END WRAPPER SCOPE FOR SELECTLOOP #2 **** # vi:ts=2 sw=2: -# warn; +# warn "outside Inner loop\n"; ; # USER'S LOOP-BLOCK ABOVE @@ -334,4 +334,4 @@ } # **** END WRAPPER SCOPE FOR SELECTLOOP #1 **** # vi:ts=2 sw=2: -#warn ; +#warn "outside all loops\n"; Cheers Luk -- Luk Claes - http://people.debian.org/~luk - GPG key 1024D/9B7C328D Fingerprint: D5AF 25FB 316B 53BB 08E7 F999 E544 DE07 9B7C 328D
signature.asc
Description: OpenPGP digital signature