Eliminate unused dummy variable
authorDoug MacEachern <dougm@opengroup.org>
Thu, 27 Mar 1997 01:23:14 +0000 (20:23 -0500)
committerChip Salzenberg <chip@atlantic.net>
Tue, 25 Mar 1997 19:04:34 +0000 (07:04 +1200)
private-msgid: 199703270123.UAA25454@postman.osf.org

lib/ExtUtils/Embed.pm
unixish.h
writemain.SH

index b6097f4..a26747f 100644 (file)
@@ -17,7 +17,7 @@ use vars qw(@ISA @EXPORT $VERSION
            );
 use strict;
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2201 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.2202 $ =~ /(\d+)\.(\d+)/);
 #for the namespace change
 $Devel::embed::VERSION = "99.99";
 
@@ -114,8 +114,9 @@ sub xsi_body {
     my(@exts) = @_;
     my($pname,@retval,%seen);
     my($dl) = canon('/','DynaLoader');
+    push(@retval, "\tchar *file = __FILE__;\n");
     push(@retval, "\tdXSUB_SYS;\n") if $] > 5.002;
-    push(@retval, "\tchar *file = __FILE__;\n\n");
+    push(@retval, "\n");
 
     foreach $_ (@exts){
         my($pname) = canon('/', $_);
index c6cb272..3e39e7d 100644 (file)
--- a/unixish.h
+++ b/unixish.h
 
 #define BIT_BUCKET "/dev/null"
 
-#define dXSUB_SYS int dummy
+#define dXSUB_SYS
index f07c682..c428383 100755 (executable)
@@ -70,11 +70,12 @@ cat << 'EOP'
 static void
 xs_init()
 {
-  dXSUB_SYS;
 EOP
 
 if test X"$args" != "X" ; then
     echo "    char *file = __FILE__;"
+    echo "    dXSUB_SYS;"
+
     ai=''
 
     for ext in $args ; do