[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