[svn:parrot] r38715 - trunk/t/codingstd
coke at svn.parrot.org
coke at svn.parrot.org
Tue May 12 14:16:29 UTC 2009
Author: coke
Date: Tue May 12 14:16:29 2009
New Revision: 38715
URL: https://trac.parrot.org/parrot/changeset/38715
Log:
[t] fix test to run in older perls.
cxreg++ (inspired from TT#543)
Modified:
trunk/t/codingstd/c_function_docs.t
Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t Tue May 12 14:11:07 2009 (r38714)
+++ trunk/t/codingstd/c_function_docs.t Tue May 12 14:16:29 2009 (r38715)
@@ -58,10 +58,8 @@
my $escaped_decl = $headerizer->generate_documentation_signature($function_decl);
- my $decl_rx = qr/^\Q$escaped_decl\E$(.*?)^=cut/sm;
-
my $missing = '';
- if ( $buf =~ m/$decl_rx/) {
+ if ( $buf =~ m/^\Q$escaped_decl\E$(.*?)^=cut/sm ) {
my $docs = $1;
$docs =~ s/\s//g;
if ($docs eq '') {
More information about the parrot-commits
mailing list