Start 2010-07-12T18:08:59 ActivePerl-1003 CPAN-1.9402 Going to read '/home/cpanfly/var/cpan/Metadata' Database was generated on Mon, 12 Jul 2010 21:27:02 GMT Running make for E/EX/EXODIST/Package-Watchdog-0.09.tar.gz Checksum for /net/nas/data/cpan/authors/id/E/EX/EXODIST/Package-Watchdog-0.09.tar.gz ok Will not use Archive::Tar, need 1.00 Package-Watchdog-0.09/ Package-Watchdog-0.09/t/ Package-Watchdog-0.09/t/060-watch.t Package-Watchdog-0.09/t/070-forbid.t Package-Watchdog-0.09/t/030-watched.t Package-Watchdog-0.09/t/050-tracker.t Package-Watchdog-0.09/t/040-forbidden.t Package-Watchdog-0.09/t/020-sub.t Package-Watchdog-0.09/t/100-watchdog.t Package-Watchdog-0.09/t/000-util.t Package-Watchdog-0.09/inc/ Package-Watchdog-0.09/inc/Module/ Package-Watchdog-0.09/inc/Module/Install/ Package-Watchdog-0.09/inc/Module/Install/Can.pm Package-Watchdog-0.09/inc/Module/Install/Base.pm Package-Watchdog-0.09/inc/Module/Install/Win32.pm Package-Watchdog-0.09/inc/Module/Install/WriteAll.pm Package-Watchdog-0.09/inc/Module/Install/Makefile.pm Package-Watchdog-0.09/inc/Module/Install/Fetch.pm Package-Watchdog-0.09/inc/Module/Install/Metadata.pm Package-Watchdog-0.09/inc/Module/Install.pm Package-Watchdog-0.09/lib/ Package-Watchdog-0.09/lib/Package/ Package-Watchdog-0.09/lib/Package/Watchdog/ Package-Watchdog-0.09/lib/Package/Watchdog/Sub/ Package-Watchdog-0.09/lib/Package/Watchdog/Sub/Forbidden.pm Package-Watchdog-0.09/lib/Package/Watchdog/Sub/Watched.pm Package-Watchdog-0.09/lib/Package/Watchdog/Util.pm Package-Watchdog-0.09/lib/Package/Watchdog/Tracker.pm Package-Watchdog-0.09/lib/Package/Watchdog/Sub.pm Package-Watchdog-0.09/lib/Package/Watchdog/Tracker/ Package-Watchdog-0.09/lib/Package/Watchdog/Tracker/Forbid.pm Package-Watchdog-0.09/lib/Package/Watchdog/Tracker/Watch.pm Package-Watchdog-0.09/lib/Package/Watchdog.pm Package-Watchdog-0.09/README Package-Watchdog-0.09/Makefile.PL Package-Watchdog-0.09/META.yml Package-Watchdog-0.09/MANIFEST CPAN.pm: Going to build E/EX/EXODIST/Package-Watchdog-0.09.tar.gz >>> /home/cpanfly/ap1003/bin/perl-static Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Package::Watchdog >>> make cp lib/Package/Watchdog/Util.pm blib/lib/Package/Watchdog/Util.pm cp lib/Package/Watchdog/Tracker/Watch.pm blib/lib/Package/Watchdog/Tracker/Watch.pm cp lib/Package/Watchdog/Sub/Forbidden.pm blib/lib/Package/Watchdog/Sub/Forbidden.pm cp lib/Package/Watchdog/Sub.pm blib/lib/Package/Watchdog/Sub.pm cp lib/Package/Watchdog/Sub/Watched.pm blib/lib/Package/Watchdog/Sub/Watched.pm cp lib/Package/Watchdog.pm blib/lib/Package/Watchdog.pm cp lib/Package/Watchdog/Tracker.pm blib/lib/Package/Watchdog/Tracker.pm cp lib/Package/Watchdog/Tracker/Forbid.pm blib/lib/Package/Watchdog/Tracker/Forbid.pm Manifying blib/man3/Package::Watchdog::Util.3 Manifying blib/man3/Package::Watchdog::Tracker::Watch.3 Manifying blib/man3/Package::Watchdog::Sub::Forbidden.3 Manifying blib/man3/Package::Watchdog::Sub.3 Manifying blib/man3/Package::Watchdog::Sub::Watched.3 Manifying blib/man3/Package::Watchdog.3 Manifying blib/man3/Package::Watchdog::Tracker.3 Manifying blib/man3/Package::Watchdog::Tracker::Forbid.3 EXODIST/Package-Watchdog-0.09.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /home/cpanfly/ap1003/bin/perl-static "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/000-util.t ....... 1..30 ok 1 - use Package::Watchdog::Util; ok 2 - get_all_subs returns all subs ok 3 - Got correct list of subs ok 4 - Test::Package->can('copy_sub') ok 5 - Test::Package->can('expand_subs') ok 6 - Test::Package->can('copy_subs') ok 7 - Test::Package->can('build_accessors') ok 8 - Test::Package->can('get_all_subs') ok 9 - Test::Package->can('proper_return') ok 10 - Test::Package->can('combine_subs') ok 11 - Test::Package->can('set_sub') ok 12 - Test::Package->can('itemA') ok 13 - Test::Package->can('itemB') ok 14 - Test::Package->can('itemC') ok 15 - Combine to lists of subs, removing duplicates ok 16 - No subs specified defaults to all ok 17 - Empty list defaults to all ok 18 - Asterisk pulls in all ok 19 - Asterisk pulls in all, keep others ok 20 - Only listed ok 21 - Copied the sub ok 22 - Copied the sub from parent ok 23 - Copied all subs ok 24 - Original Sub works ok 25 - Original Sub works ok 26 - Original replaced ok 27 - Replaced again ok 28 - Restored ok 29 - no sub anymore ok 30 - no sub anymore ok t/020-sub.t ........ ok 1 - use Package::Watchdog::Sub; ok 2 - Package::Watchdog::Sub->can(...) ok 3 - Must override new_sub ok 4 - Original ok 5 - The object isa Package::Watchdog::Sub ok 6 - Only one instance per class/package/sub ok 7 - Overriden ok 8 - Restored ok 9 - Old instance destroyed ok 10 - Overriden again ok 11 - Restored ok 12 - Cannot do_override on expired object ok 13 - Cannot do_override on expired object ok 14 - Restored ok 15 - replaced ok 16 - Still replaced ok 17 - Only one instance of a sub override ok 18 - Wanted an array ok 19 - Wanted a scalar 1..19 ok t/030-watched.t .... ok 1 - use Package::Watchdog::Sub::Watched; ok 2 - Replaced ok 3 - new_sub returns original sub return value ok 4 - new_sub returns original sub return value ok 5 - Still replaced ok 6 - Only one instance of a sub override ok 7 - Replaced ok 8 - overriden function that dies still dies ok 9 - Correct death message ok 10 - Replaced ok 11 - new_sub returns original sub return value ok 12 - Correct Return 1..12 ok t/040-forbidden.t .. ok 1 - use Package::Watchdog::Sub::Forbidden; ok 2 - Only one instance ok 3 - Sub replaced ok 4 - Die when there is a react with die ok 5 - correct death message ok 6 - Correct stuff was run. ok 7 - Live without a die reaction ok 8 - Correct stuff was run. ok 9 - Live without a die reaction ok 10 - Correct stuff was run. ok 11 - Sub restored ok 12 - Sub replaced ok 13 - Original ( a() ) Returns on warn ok 14 - Sub replaced ok 15 - Original ( b() ) Returns on warn ok 16 - Sub replaced ok 17 - Original ( c() ) Returns on warn ok 18 - Sub replaced ok 19 - Original ( array() ) Returns on warn ok 20 - Sub replaced ok 21 - Original ( params() ) Returns on warn ok 22 - Sub replaced ok 23 - Original ( a() ) Returns on CODE(0x827ff28) ok 24 - Sub replaced ok 25 - Original ( b() ) Returns on CODE(0x827ff28) ok 26 - Sub replaced ok 27 - Original ( c() ) Returns on CODE(0x827ff28) ok 28 - Sub replaced ok 29 - Original ( array() ) Returns on CODE(0x827ff28) ok 30 - Sub replaced ok 31 - Original ( params() ) Returns on CODE(0x827ff28) ok 32 - Sub replaced ok 33 - Dies on die ok 34 - Sub replaced ok 35 - Dies on die ok 36 - Sub replaced ok 37 - Dies on die ok 38 - Sub replaced ok 39 - Dies on die ok 40 - Sub replaced ok 41 - Dies on die ok 42 - Sub replaced ok 43 - Dies on CODE(0x82801f8) ok 44 - Sub replaced ok 45 - Dies on CODE(0x82801f8) ok 46 - Sub replaced ok 47 - Dies on CODE(0x82801f8) ok 48 - Sub replaced ok 49 - Dies on CODE(0x82801f8) ok 50 - Sub replaced ok 51 - Dies on CODE(0x82801f8) ok 52 - Sub replaced ok 53 - Fatal sub still dies on warn ok 54 - Sub replaced ok 55 - Fatal sub still dies on CODE(0x82804a8) 1..55 ok t/050-tracker.t .... ok 1 - use Package::Watchdog::Tracker; 1..1 ok t/060-watch.t ...... ok 1 - use Package::Watchdog::Tracker::Watch; ok 2 - Package::Watchdog::Tracker::Watch->can(...) ok 3 - Must specify a package to track ok 4 - Correct message ok 5 - Must provide a reference to the stack ok 6 - Correct message ok 7 - Param 'react' must be either 'die', 'warn', or a coderef. ok 8 - Correct message ok 9 - Default react is die ok 10 - all subs for Fake package ok 11 - Saved package ok 12 - Somewhat useful name generated ok 13 - Generated useful warning ok 14 - Generated useful warning - leveled ok 15 - warns properly ok 16 - Proper params are passed to react sub 1..16 ok t/070-forbid.t ..... ok 1 - use Package::Watchdog::Tracker::Forbid; 1..1 ok t/100-watchdog.t ... ok 1 - use Package::Watchdog; ok 2 - No Watches by default ok 3 - No Forbids by default ok 4 - default react is die ok 5 - Custom reaction ok 6 - Correct forbids ok 7 - Watched sub a ok 8 - Still watching sub a ok 9 - Watched sub b ok 10 - Watched sub c ok 11 - Watched sub a ok 12 - not watching sub b ok 13 - not watching sub c ok 14 - destroyed watchdog: sub a ok 15 - destroyed watchdog: sub b ok 16 - destroyed watchdog: sub c ok 17 - destroyed watchdog: sub a ok 18 - Watched sub a ok 19 - Watched sub b ok 20 - Watched sub c ok 21 - Watched sub a ok 22 - no warnings for sub a ok 23 - no warnings for sub b ok 24 - no warnings for sub c ok 25 - no warnings for sub a 1..25 ok All tests successful. Files=8, Tests=159, 1 wallclock secs ( 0.02 usr 0.00 sys + 0.25 cusr 0.05 csys = 0.32 CPU) Result: PASS EXODIST/Package-Watchdog-0.09.tar.gz make test TEST_VERBOSE=1 -- OK Chad Granum <exodist7@gmail.com> Forbid subs in one package from accessing subs in another package, directly or otherwise. >>> (cd /home/cpanfly/var/cpan/build/Package-Watchdog-0.09-6GKElo && tar cvf - Package-Watchdog-0.09.ppd blib) | gzip -c >/home/cpanfly/var/REPO/E/EX/EXODIST/Package-Watchdog-0.09.tar.gz Package-Watchdog-0.09.ppd blib/ blib/lib/ blib/lib/Package/ blib/lib/Package/Watchdog/ blib/lib/Package/Watchdog/Sub/ blib/lib/Package/Watchdog/Sub/Forbidden.pm blib/lib/Package/Watchdog/Sub/Watched.pm blib/lib/Package/Watchdog/Util.pm blib/lib/Package/Watchdog/Tracker.pm blib/lib/Package/Watchdog/Sub.pm blib/lib/Package/Watchdog/Tracker/ blib/lib/Package/Watchdog/Tracker/Forbid.pm blib/lib/Package/Watchdog/Tracker/Watch.pm blib/lib/Package/Watchdog.pm blib/man3/ blib/man3/Package::Watchdog::Util.3 blib/man3/Package::Watchdog::Sub.3 blib/man3/Package::Watchdog::Tracker::Forbid.3 blib/man3/Package::Watchdog::Tracker::Watch.3 blib/man3/Package::Watchdog::Tracker.3 blib/man3/Package::Watchdog::Sub::Watched.3 blib/man3/Package::Watchdog.3 blib/man3/Package::Watchdog::Sub::Forbidden.3 >>> mv /home/cpanfly/var/cpan/build/Package-Watchdog-0.09-6GKElo/Package-Watchdog-0.09.ppd /home/cpanfly/var/REPO/E/EX/EXODIST DBD::SQLite::db do failed: constraint failed column path is not unique at /home/cpanfly/lib/ActivePerl/PPM/InstallArea.pm line 553. Megalib: File conflict for '/home/cpanfly/var/megalib/Package/Watchdog/Sub/Forbidden.pm'. The package package-watchdog has already installed a file that package Package-Watchdog wants to install. at /home/cpanfly/lib/ActivePerl/PPM/InstallArea.pm line 564. Finished 2010-07-12T18:09:01