r-magic: const and latefree pregcomp arguments (Carp::Clan, Moose, Cl…

…ass::MOP, Module::Build, ExtUtils::Install, Template::Stash)

git-svn-id: http://perl-compiler.googlecode.com/svn/trunk@861 ed534f1a-1453-0410-ab30-dfc593a8b23c

lib/B/C.pm

@@ -1820,10 +1820,11 @@ sub B::PVMG::save_magic {
 	}
 	my $pmsym = $pmop->save;
 	if ($PERL510) {
+          push @static_free, $resym;
 	  $init->add( split /\n/,
 		    sprintf <<CODE, $pmop->pmflags, $$sv, cchar($type), cstring($ptr), $len );
 {
-    REGEXP* rx = CALLREGCOMP($resym, %d);
+    REGEXP* rx = CALLREGCOMP((SV* const)$resym, %d);
     sv_magic((SV*)s\\_%x, (SV*)rx, %s, %s, %d);
 }
 CODE
@@ -1833,7 +1834,7 @@ CODE
 	  $init->add( split /\n/,
 		      sprintf <<CODE, $$sv, cchar($type), cstring($ptr), $len );
 {
-    REGEXP* rx = pregcomp($resym, $resym + $relen, (PMOP*)$pmsym);
+    REGEXP* rx = pregcomp((char*)$resym,(char*)($resym + $relen), (PMOP*)$pmsym);
     sv_magic((SV*)s\\_%x, (SV*)rx, %s, %s, %d);
 }
 CODE

t/testm.sh

@@ -17,6 +17,7 @@ function help {
   echo " -k                 keep temp. files on PASS"
   echo " -D<arg>            add debugging flags"
   echo " -f<arg>            add optimisation flags"
+  echo " -O<arg>            add optimisation flags"
   echo " -l                 log"
   echo " -o                 orig. no -Mblib, use installed modules (5.6, 5.8)"
   echo " -t                 run the module tests also, not only use Module (experimental)"