Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Sub\Uplevel.pm (unchanged) Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Sub\Uplevel.pod (unchanged) Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Sub\Uplevel\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod vel.................1..22 ok 1 - use Sub::Uplevel; ok 2 - Sub::Uplevel->can('uplevel') ok 3 - main->can('uplevel') ok 4 - top-level caller() not screwed up ok 5 - die() not screwed up ok 6 - uplevel() ok 7 - die() fooled ok 8 - warn() fooled ok 9 - croak() fooled ok 10 - caller() not screwed up ok 11 - die() not screwed up ok 12 - carp() fooled ok 13 - main->can('fooble') ok 14 - caller check ok 15 - caller() with args returns right number of values ok 16 - caller() with no args returns right number of values ok 17 - shallow caller ok 18 - deep caller() ok 19 - deep caller() + uplevel ok 20 - nested uplevel()s ok 21 - deep caller check of parent sees real calling package ok 22 - deep caller check of grandparent sees package above uplevel ok t\03_nested_uplevels.........1..104 ok 1 - Right number of cases ok 2 - Case: Call, Call, Call, Call, Wrap(Call) ok 3 - Case: Call, Call, Call, Call, Wrap(Call) x 2 ok 4 - Case: Call, Call, Call, Call, Wrap(Call) x 3 ok 5 - Case: Call, Call, Call, Wrap(Call), Call ok 6 - Case: Call, Call, Call, Wrap(Call), Wrap(Call) ok 7 - Case: Call, Call, Call, Wrap(Call) x 2, Call ok 8 - Case: Call, Call, Call, Wrap(Call) x 2, Wrap(Call) ok 9 - Case: Call, Call, Call, Wrap(Call) x 2, Wrap(Call) x 2 ok 10 - Case: Call, Call, Call, Wrap(Call) x 3, Call ok 11 - Case: Call, Call, Call, Wrap(Call) x 3, Wrap(Call) ok 12 - Case: Call, Call, Call, Wrap(Call) x 3, Wrap(Call) x 2 ok 13 - Case: Call, Call, Call, Wrap(Call) x 3, Wrap(Call) x 3 ok 14 - Case: Call, Call, Wrap(Call), Call, Call ok 15 - Case: Call, Call, Wrap(Call), Call, Wrap(Call) ok 16 - Case: Call, Call, Wrap(Call), Wrap(Call), Call ok 17 - Case: Call, Call, Wrap(Call), Wrap(Call), Wrap(Call) ok 18 - Case: Call, Call, Wrap(Call) x 2, Call, Call ok 19 - Case: Call, Call, Wrap(Call) x 2, Call, Wrap(Call) ok 20 - Case: Call, Call, Wrap(Call) x 2, Call, Wrap(Call) x 2 ok 21 - Case: Call, Call, Wrap(Call) x 2, Wrap(Call), Call ok 22 - Case: Call, Call, Wrap(Call) x 2, Wrap(Call), Wrap(Call) ok 23 - Case: Call, Call, Wrap(Call) x 2, Wrap(Call) x 2, Call ok 24 - Case: Call, Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) ok 25 - Case: Call, Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2 ok 26 - Case: Call, Call, Wrap(Call) x 3, Call, Call ok 27 - Case: Call, Call, Wrap(Call) x 3, Call, Wrap(Call) ok 28 - Case: Call, Call, Wrap(Call) x 3, Call, Wrap(Call) x 2 ok 29 - Case: Call, Call, Wrap(Call) x 3, Call, Wrap(Call) x 3 ok 30 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call), Call ok 31 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call), Wrap(Call) ok 32 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 2, Call ok 33 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) ok 34 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) x 2 ok 35 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 3, Call ok 36 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) ok 37 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 2 ok 38 - Case: Call, Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3 ok 39 - Case: Call, Wrap(Call), Call, Call, Call ok 40 - Case: Call, Wrap(Call), Call, Call, Wrap(Call) ok 41 - Case: Call, Wrap(Call), Call, Wrap(Call), Call ok 42 - Case: Call, Wrap(Call), Call, Wrap(Call), Wrap(Call) ok 43 - Case: Call, Wrap(Call), Wrap(Call), Call, Call ok 44 - Case: Call, Wrap(Call), Wrap(Call), Call, Wrap(Call) ok 45 - Case: Call, Wrap(Call), Wrap(Call), Wrap(Call), Call ok 46 - Case: Call, Wrap(Call), Wrap(Call), Wrap(Call), Wrap(Call) ok 47 - Case: Call, Wrap(Call) x 2, Call, Call, Call ok 48 - Case: Call, Wrap(Call) x 2, Call, Call, Wrap(Call) ok 49 - Case: Call, Wrap(Call) x 2, Call, Call, Wrap(Call) x 2 ok 50 - Case: Call, Wrap(Call) x 2, Call, Wrap(Call), Call ok 51 - Case: Call, Wrap(Call) x 2, Call, Wrap(Call), Wrap(Call) ok 52 - Case: Call, Wrap(Call) x 2, Call, Wrap(Call) x 2, Call ok 53 - Case: Call, Wrap(Call) x 2, Call, Wrap(Call) x 2, Wrap(Call) ok 54 - Case: Call, Wrap(Call) x 2, Call, Wrap(Call) x 2, Wrap(Call) x 2 ok 55 - Case: Call, Wrap(Call) x 2, Wrap(Call), Call, Call ok 56 - Case: Call, Wrap(Call) x 2, Wrap(Call), Call, Wrap(Call) ok 57 - Case: Call, Wrap(Call) x 2, Wrap(Call), Wrap(Call), Call ok 58 - Case: Call, Wrap(Call) x 2, Wrap(Call), Wrap(Call), Wrap(Call) ok 59 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Call, Call ok 60 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Call, Wrap(Call) ok 61 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Call, Wrap(Call) x 2 ok 62 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call), Call ok 63 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call), Wrap(Call) ok 64 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2, Call ok 65 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) ok 66 - Case: Call, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2 ok 67 - Case: Call, Wrap(Call) x 3, Call, Call, Call ok 68 - Case: Call, Wrap(Call) x 3, Call, Call, Wrap(Call) ok 69 - Case: Call, Wrap(Call) x 3, Call, Call, Wrap(Call) x 2 ok 70 - Case: Call, Wrap(Call) x 3, Call, Call, Wrap(Call) x 3 ok 71 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call), Call ok 72 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call), Wrap(Call) ok 73 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 2, Call ok 74 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 2, Wrap(Call) ok 75 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 2, Wrap(Call) x 2 ok 76 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 3, Call ok 77 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 3, Wrap(Call) ok 78 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 3, Wrap(Call) x 2 ok 79 - Case: Call, Wrap(Call) x 3, Call, Wrap(Call) x 3, Wrap(Call) x 3 ok 80 - Case: Call, Wrap(Call) x 3, Wrap(Call), Call, Call ok 81 - Case: Call, Wrap(Call) x 3, Wrap(Call), Call, Wrap(Call) ok 82 - Case: Call, Wrap(Call) x 3, Wrap(Call), Wrap(Call), Call ok 83 - Case: Call, Wrap(Call) x 3, Wrap(Call), Wrap(Call), Wrap(Call) ok 84 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Call, Call ok 85 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Call, Wrap(Call) ok 86 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Call, Wrap(Call) x 2 ok 87 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call), Call ok 88 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call), Wrap(Call) ok 89 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) x 2, Call ok 90 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) ok 91 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) x 2, Wrap(Call) x 2 ok 92 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Call, Call ok 93 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Call, Wrap(Call) ok 94 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Call, Wrap(Call) x 2 ok 95 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Call, Wrap(Call) x 3 ok 96 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call), Call ok 97 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call), Wrap(Call) ok 98 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 2, Call ok 99 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) ok 100 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 2, Wrap(Call) x 2 ok 101 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3, Call ok 102 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) ok 103 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 2 ok 104 - Case: Call, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3, Wrap(Call) x 3 ok t\04_honor_later_override....1..7 ok 1 - no global override yet ok 2 - use Sub::Uplevel; ok 3 - Sub::Uplevel's normal caller override in place ok 4 - added new, custom caller override ok 5 - caller from main package is empty string ok 6 - caller from subroutine calls custom routine ok 7 - caller from uplevel subroutine calls custom routine ok t\05_honor_prior_override....1..7 ok 1 - no global override yet ok 2 - added custom caller override ok 3 - use Sub::Uplevel; ok 4 - custom caller override still in place ok 5 - caller from main package is empty string ok 6 - caller from subroutine calls custom routine ok 7 - caller from uplevel subroutine calls custom routine ok t\06_db_args.................1..3 ok 1 - use Sub::Uplevel; ok 2 - wrapper returned value correct ok 3 - wrapper returned args correct ok All tests successful. Files=6, Tests=144, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)