diff options
| author | Doug MacEachern <dougm@opengroup.org> | 1997-03-26 20:23:14 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-26 07:04:34 +1200 |
| commit | a3c8358ce414426ff5d7d0ca29f8d98f18d4c878 (patch) | |
| tree | 7bd5fb8c9c7f59b41287d9b8a80018733ec0a22c | |
| parent | 1fd066cbdf7ee74f73ad41ee661bdb6d8d7e141c (diff) | |
| download | perl-a3c8358ce414426ff5d7d0ca29f8d98f18d4c878.tar.gz | |
Eliminate unused dummy variable
private-msgid: 199703270123.UAA25454@postman.osf.org
| -rw-r--r-- | lib/ExtUtils/Embed.pm | 5 | ||||
| -rw-r--r-- | unixish.h | 2 | ||||
| -rwxr-xr-x | writemain.SH | 3 |
3 files changed, 6 insertions, 4 deletions
diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index b6097f40ff..a26747fe04 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('/', $_); @@ -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 f07c682faf..c428383085 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 |