From: John E. Malmberg <wb8tyw@qsl.net>
Date: Sat, 29 Sep 2007 14:50:37 +0000 (-0500)
Subject: Re: [patch@31988] Revised Module::Build fixes for VMS.
X-Git-Tag: accepted/trunk/20130322.191538~14488
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=650ef4db8cad860f43b2a55b1e3f824abfedf598;p=platform%2Fupstream%2Fperl.git

Re: [patch@31988] Revised Module::Build fixes for VMS.
From: "John E. Malmberg" <wb8tyw@qsl.net>
	Message-id: <46FEAC8D.1080506@qsl.net>

Missed one case in #31995.

p4raw-id: //depot/perl@31998
---

diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
index 3462505..519fe00 100644
--- a/lib/Module/Build/Base.pm
+++ b/lib/Module/Build/Base.pm
@@ -2247,7 +2247,7 @@ sub process_support_files {
   
   push @{$p->{include_dirs}}, $p->{c_source};
   
-  my $files = $self->rscan_dir($p->{c_source}, qr('\.c(pp)?$'));
+  my $files = $self->rscan_dir($p->{c_source}, file_qr('\.c(pp)?$'));
   foreach my $file (@$files) {
     push @{$p->{objects}}, $self->compile_c($file);
   }