Author: tim.bunce
Date: Thu Oct 16 15:51:08 2008
New Revision: 523
Modified:
trunk/lib/Devel/NYTProf.pm
trunk/lib/Devel/NYTProf/Reader.pm
Log:
Use 3-arg open.
Modified: trunk/lib/Devel/NYTProf.pm
==============================================================================
--- trunk/lib/Devel/NYTProf.pm (original)
+++ trunk/lib/Devel/NYTProf.pm Thu Oct 16 15:51:08 2008
@@ -227,7 +227,7 @@
=head2 subs=0
-Set to 0 to disable the collection of subroutine inclusive timings.
+Set to 0 to disable the collection of subroutine caller and timing details.
=head2 blocks=0
Modified: trunk/lib/Devel/NYTProf/Reader.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Reader.pm (original)
+++ trunk/lib/Devel/NYTProf/Reader.pm Thu Oct 16 15:51:08 2008
@@ -396,7 +396,7 @@
# open output file
#warn "$self->{output_dir}/$fname";
- open(OUT, "> $self->{output_dir}/$fname")
+ open(OUT, ">", "$self->{output_dir}/$fname")
or confess "Unable to open $self->{output_dir}/$fname " . "for
writing: $!\n";
# begin output
@@ -404,7 +404,7 @@
print OUT $taintmsg if $tainted;
print OUT $datastart;
- if (!open(IN, $filestr)) {
+ if (!open(IN, "<", $filestr)) {
# ignore synthetic file names that perl assigns when reading
# code returned by a CODE ref in @INC
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---
