diff options
| author | Anton Nikishaev <me@lelf.lu> | 2013-02-27 12:01:07 +0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-02-28 21:23:17 -0500 |
| commit | 62b5d8c012dd6f2dd295eda952734ce7fc7b608d (patch) | |
| tree | 472bbf3680e7c4d8df1b6355c56a7a08352e362e /pod/perldtrace.pod | |
| parent | 2c4c45fc46d5cee014cf2ffaf632919f9a294a6a (diff) | |
| download | perl-62b5d8c012dd6f2dd295eda952734ce7fc7b608d.tar.gz | |
perldtrace.pod: fix example code
Diffstat (limited to 'pod/perldtrace.pod')
| -rw-r--r-- | pod/perldtrace.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perldtrace.pod b/pod/perldtrace.pod index 022a2371e3..0aeb268848 100644 --- a/pod/perldtrace.pod +++ b/pod/perldtrace.pod @@ -74,7 +74,7 @@ I<caller> from a DTrace action. :*perl*::sub-entry { printf("%s::%s entered at %s line %d\n", - copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg0); + copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg2); } =item sub-return(SUBNAME, FILE, LINE, PACKAGE) @@ -86,7 +86,7 @@ from a DTrace action. :*perl*::sub-return { printf("%s::%s returned at %s line %d\n", - copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg0); + copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg2); } =item phase-change(NEWPHASE, OLDPHASE) |