From: Doug MacEachern <dougm@opengroup.org>
Date: Thu, 27 Mar 1997 01:23:14 +0000 (-0500)
Subject: Eliminate unused dummy variable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3c8358ce414426ff5d7d0ca29f8d98f18d4c878;p=p5sagit%2Fp5-mst-13.2.git

Eliminate unused dummy variable

private-msgid: 199703270123.UAA25454@postman.osf.org
---

diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
index b6097f4..a26747f 100644
--- a/lib/ExtUtils/Embed.pm
+++ b/lib/ExtUtils/Embed.pm
@@ -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('/', $_);
diff --git a/unixish.h b/unixish.h
index c6cb272..3e39e7d 100644
--- a/unixish.h
+++ b/unixish.h
@@ -114,4 +114,4 @@
 
 #define BIT_BUCKET "/dev/null"
 
-#define dXSUB_SYS int dummy
+#define dXSUB_SYS
diff --git a/writemain.SH b/writemain.SH
index f07c682..c428383 100755
--- a/writemain.SH
+++ b/writemain.SH
@@ -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