[perl-devel-nytprof] r1003 committed - Removed some stray tabs from FileHandle.xs....

0 views
Skip to first unread message

codesite...@google.com

unread,
Dec 28, 2009, 5:24:56 PM12/28/09
to develnyt...@googlegroups.com
Revision: 1003
Author: tim.bunce
Date: Mon Dec 28 14:24:20 2009
Log: Removed some stray tabs from FileHandle.xs.
Simplified the (outdated and inaccurate) header text to refer to NYTProf.pm

http://code.google.com/p/perl-devel-nytprof/source/detail?r=1003

Modified:
/trunk/FileHandle.xs

=======================================
--- /trunk/FileHandle.xs Mon Dec 28 13:49:46 2009
+++ /trunk/FileHandle.xs Mon Dec 28 14:24:20 2009
@@ -1,18 +1,9 @@
/* vim: ts=8 sw=4 expandtab:
* ************************************************************************
* This file is part of the Devel::NYTProf package.
- * Copyright 2008 Adam J. Kaplan, The New York Times Company.
- * Copyright 2008 Tim Bunce, Ireland.
- * Released under the same terms as Perl 5.8
* See http://search.cpan.org/dist/Devel-NYTProf/
- *
- * Contributors:
- * Adam Kaplan, akaplan at nytimes.com
- * Tim Bunce, http://www.tim.bunce.name and http://blog.timbunce.org
- * Steve Peters, steve at fisharerojo.org
- *
- * ************************************************************************
- * $Id$
+ * For Copyright see lib/Devel/NYTProf.pm
+ * For contribution history see repository logs.
* ************************************************************************
*/

@@ -606,12 +597,12 @@
SV *string
PREINIT:
STRLEN len;
- char *p;
+ char *p;
NYTP_file fh;
CODE:
if(!sv_isa(handle, "Devel::NYTProf::FileHandle"))
croak("handle is not a Devel::NYTProf::FileHandle");
- p = SvPVbyte(string, len);
+ p = SvPVbyte(string, len);
fh = (NYTP_file)SvPVX(SvRV(handle));
RETVAL = NYTP_write(fh, p, len);
OUTPUT:
@@ -656,11 +647,11 @@
SV *value
PREINIT:
STRLEN len;
- char *p;
+ char *p;
NYTP_file fh;
CODE:
if(!sv_isa(handle, "Devel::NYTProf::FileHandle"))
croak("handle is not a Devel::NYTProf::FileHandle");
fh = (NYTP_file)SvPVX(SvRV(handle));
p = SvPV(value, len);
- output_str(fh, p, SvUTF8(value) ? -(I32)len : (I32) len);
+ output_str(fh, p, SvUTF8(value) ? -(I32)len : (I32) len);

Reply all
Reply to author
Forward
0 new messages