[svn:parrot] r35986 - trunk/src

[bernhard]

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;