# # # To apply this patch: # STEP 1: Chdir to the source directory. # STEP 2: Run the 'applypatch' program with this patch file as input. # # If you do not have 'applypatch', it is part of the 'makepatch' package # that you can fetch from the Comprehensive Perl Archive Network: # http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz # In the above URL, 'x' should be 2 or higher. # # To apply this patch without the use of 'applypatch': # STEP 1: Chdir to the source directory. # STEP 2: Run the 'patch' program with this file as input. # #### End of Preamble #### #### Patch data follows #### diff -up 'Devel-Leak-Object-0.92/lib/Devel/Leak/Object.pm' 'new.Devel-Leak-Object-0.92/lib/Devel/Leak/Object.pm' Index: ./lib/Devel/Leak/Object.pm --- ./lib/Devel/Leak/Object.pm Tue Dec 11 06:00:52 2007 +++ ./lib/Devel/Leak/Object.pm Mon Nov 17 12:35:07 2008 @@ -178,10 +178,10 @@ sub make_next { } sub status { - print "Tracked objects by class:\n"; + print STDERR "Tracked objects by class:\n"; for (sort keys %OBJECT_COUNT) { next unless $OBJECT_COUNT{$_}; # Don't list class with count zero - printf "%-40s %d\n", $_, $OBJECT_COUNT{$_}; + printf STDERR "%-40s %d\n", $_, $OBJECT_COUNT{$_}; } } #### End of Patch data #### #### ApplyPatch data follows #### # Data version : 1.0 # Date generated : Mon Nov 17 12:38:12 2008 # Generated by : makepatch 2.00_12* # Recurse directories : Yes # Excluded files : (\A|/).*\~\Z # (\A|/).*\.a\Z # (\A|/).*\.bak\Z # (\A|/).*\.BAK\Z # (\A|/).*\.elc\Z # (\A|/).*\.exe\Z # (\A|/).*\.gz\Z # (\A|/).*\.ln\Z # (\A|/).*\.o\Z # (\A|/).*\.obj\Z # (\A|/).*\.olb\Z # (\A|/).*\.old\Z # (\A|/).*\.orig\Z # (\A|/).*\.rej\Z # (\A|/).*\.so\Z # (\A|/).*\.Z\Z # (\A|/)\.del\-.*\Z # (\A|/)\.make\.state\Z # (\A|/)\.nse_depinfo\Z # (\A|/)core\Z # (\A|/)tags\Z # (\A|/)TAGS\Z # p 'lib/Devel/Leak/Object.pm' 7815 1226921707 0100644 #### End of ApplyPatch data #### #### End of Patch kit [created: Mon Nov 17 12:38:12 2008] #### #### Patch checksum: 51 1886 51852 #### #### Checksum: 69 2510 37850 ####