X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=2f911012529d9ed674442811d83b61f822716a0f;hb=35b71bcad21c9fb3ab22636b260608c89542e48f;hp=5eb43c6e88a1da038a7cc122435a5023e09928ab;hpb=33d464ba15a1986e04334c570588029c4e04fc7a;p=p5sagit%2FDevel-Size.git

diff --git a/Makefile.PL b/Makefile.PL
index 5eb43c6..2f91101 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -29,15 +29,13 @@ my %special = (
 
 open FH, ">$vtable_file" or die "Can't open $vtable_file: $!";
 foreach (sort keys %vtables) {
-    if ($special{$_}) {
-	print FH <<"EOT";
-#ifdef $special{$_}
-    &$_,
-#endif
-EOT
-    } else {
+    print FH "#ifdef $special{$_}\n" if ($special{$_});
+    if ($Config{gccversion}) {
 	print FH "    &$_,\n";
+    } else {
+	print FH "    check_new(st, &$_);\n";
     }
+    print FH "#endif\n" if ($special{$_});
 }
 
 close FH or die "Error closing $vtable_file: $!";