[svn:parrot] r44886 - trunk/src/pmc
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Fri Mar 12 00:44:40 UTC 2010
Author: mikehh
Date: Fri Mar 12 00:44:36 2010
New Revision: 44886
URL: https://trac.parrot.org/parrot/changeset/44886
Log:
fix codetest failure - line length
Modified:
trunk/src/pmc/os.pmc
Modified: trunk/src/pmc/os.pmc
==============================================================================
--- trunk/src/pmc/os.pmc Thu Mar 11 22:28:12 2010 (r44885)
+++ trunk/src/pmc/os.pmc Fri Mar 12 00:44:36 2010 (r44886)
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2001-2009, Parrot Foundation.
+Copyright (C) 2001-2010, Parrot Foundation.
$Id$
=head1 NAME
@@ -504,8 +504,10 @@
HANDLE hFind = INVALID_HANDLE_VALUE;
/* Add \* to the directory name and start search. */
- STRING *last_char = Parrot_str_substr(interp, path, Parrot_str_length(interp, path) - 1, 1, NULL, 0);
- int trailing_slash = Parrot_str_equal(interp, last_char, string_from_literal(interp, "\\")) ||
+ STRING *last_char = Parrot_str_substr(interp, path,
+ Parrot_str_length(interp, path) - 1, 1, NULL, 0);
+ int trailing_slash = Parrot_str_equal(interp, last_char, string_from_literal(interp, "\\"))
+ ||
Parrot_str_equal(interp, last_char, string_from_literal(interp, "/"));
cpath = Parrot_str_to_cstring(interp, Parrot_str_concat(interp,
path, string_from_literal(interp, trailing_slash ? "*" : "\\*"), 0));
More information about the parrot-commits
mailing list