minor warnings: return values from our destruct. sync testc 39 with T…

…ESTS git-svn-id: http://perl-compiler.googlecode.com/svn/trunk@860 ed534f1a-1453-0410-ab30-dfc593a8b23c
rurban · Jan 6, 2011 · a8cf661 · a8cf661
1 parent f934ccf
commit a8cf661
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/B/C.pm b/lib/B/C.pm
@@ -3430,7 +3430,7 @@ int fast_perl_destruct( PerlInterpreter *my_perl ) {
         return STATUS_NATIVE_EXPORT;
 #endif
     }
-    PerlIO_destruct(aTHX);
+    return PerlIO_destruct(aTHX);
 }
 EOT
   }
@@ -3459,7 +3459,7 @@ EOT
       my $hek = sprintf( "hek%d", $_ );
       printf ("    %s = NULL;\n", $hek);
     }
-    print "    perl_destruct( my_perl );\n}\n\n";
+    print "    return perl_destruct( my_perl );\n}\n\n";
   }
 
   print <<'EOT';

diff --git a/t/testc.sh b/t/testc.sh
@@ -262,7 +262,7 @@ tests[38]='for(1 .. 1024) { if (open(my $null_fh,"<","/dev/null")) { seek($null_
 result[38]='ok'
 # check re::is_regexp, and on 5.12 if being upgraded to SVt_REGEXP
 # => Undefined subroutine &re::is_regexp with B-C-1.19, even with -ure
-tests[39]='{$a=qr//;print($]<5.007?1:re::is_regexp($a))}'
+tests[39]='{$a=qr/x/;print($]<5.007?1:re::is_regexp($a))}'
 result[39]='1'
 # String with a null byte -- used to generate broken .c on 5.6.2 with static pvs
 tests[40]='my $var="this string has a null \\000 byte in it";print "ok";'