develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35986 - trunk/src

From:
bernhard
Date:
January 25, 2009 02:35
Subject:
[svn:parrot] r35986 - trunk/src
Message ID:
20090125103540.06351CB9AE@x12.develooper.com
Author: bernhard
Date: Sun Jan 25 02:35:37 2009
New Revision: 35986

Modified:
   trunk/src/library.c

Log:
[codingstd] c_parens.t and linelength.t


Modified: trunk/src/library.c
==============================================================================
--- trunk/src/library.c	(original)
+++ trunk/src/library.c	Sun Jan 25 02:35:37 2009
@@ -1,5 +1,5 @@
 /*
-Copyright (C) 2004-2007, The Perl Foundation.
+Copyright (C) 2004-2009, The Perl Foundation.
 $Id$
 
 =head1 NAME
@@ -798,11 +798,14 @@
     /* This is a quick fix for TT #65
      * TODO: redo it with the string reimplementation
      */
-    const char * charset = Parrot_charset_c_name(interp,
-        Parrot_charset_number_of_str(interp, in) );
-    STRING * const slash1 = string_make(interp, "/", 1, charset, PObj_external_FLAG|PObj_constant_FLAG);
-    STRING * const slash2 = string_make(interp, "\\", 1, charset, PObj_external_FLAG|PObj_constant_FLAG);
-    STRING * const dot    = string_make(interp, ".", 1, charset, PObj_external_FLAG|PObj_constant_FLAG);
+    const char *   charset = Parrot_charset_c_name(interp,
+            Parrot_charset_number_of_str(interp, in));
+    STRING * const slash1  = string_make(interp, "/", 1, charset,
+            PObj_external_FLAG|PObj_constant_FLAG);
+    STRING * const slash2  = string_make(interp, "\\", 1, charset,
+            PObj_external_FLAG|PObj_constant_FLAG);
+    STRING * const dot     = string_make(interp, ".", 1, charset,
+            PObj_external_FLAG|PObj_constant_FLAG);
 
     const INTVAL len = string_length(interp, in);
     STRING *stem;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About