develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33974 - in trunk: src/pmc t/perl/testlib

From:
coke
Date:
December 16, 2008 11:09
Subject:
[svn:parrot] r33974 - in trunk: src/pmc t/perl/testlib
Message ID:
20081216190935.E87A4CBA12@x12.develooper.com
Author: coke
Date: Tue Dec 16 11:09:35 2008
New Revision: 33974

Modified:
   trunk/src/pmc/filehandle.pmc
   trunk/t/perl/testlib/answer.pir   (contents, props changed)
   trunk/t/perl/testlib/hello   (props changed)

Log:
pass 'make codetest'.

Note that I think the passing c_indent update for filehandle.pmc makes the code uglier, but I bend my will to that of the codingstd test.


Modified: trunk/src/pmc/filehandle.pmc
==============================================================================
--- trunk/src/pmc/filehandle.pmc	(original)
+++ trunk/src/pmc/filehandle.pmc	Tue Dec 16 11:09:35 2008
@@ -78,13 +78,13 @@
 
         /* Initialize the os_handle to the platform-specific value for closed. */
 #ifdef PIO_OS_WIN32
-        data_struct->os_handle    = (PIOHANDLE)INVALID_HANDLE_VALUE;
+    data_struct->os_handle    = (PIOHANDLE)INVALID_HANDLE_VALUE;
 #endif
 #ifdef PIO_OS_UNIX
-        data_struct->os_handle    = (PIOHANDLE)-1;
+    data_struct->os_handle    = (PIOHANDLE)-1;
 #endif
 #ifdef PIO_OS_STDIO
-        data_struct->os_handle    = (PIOHANDLE)NULL;
+    data_struct->os_handle    = (PIOHANDLE)NULL;
 #endif
 
         PObj_custom_mark_SET(SELF);

Modified: trunk/t/perl/testlib/answer.pir
==============================================================================
--- trunk/t/perl/testlib/answer.pir	(original)
+++ trunk/t/perl/testlib/answer.pir	Tue Dec 16 11:09:35 2008
@@ -1,5 +1,5 @@
 # Copyright (C) 2001-2008, The Perl Foundation.
-# $Id: hello-dwim.pir 25819 2008-02-18 00:16:21Z coke $
+# $Id$
 .sub _main
     print "The answer is\n"
     add $I0, 20, 23



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