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 /lib/ExtUtils/Embed.pm | |
| parent | 1fd066cbdf7ee74f73ad41ee661bdb6d8d7e141c (diff) | |
| download | perl-a3c8358ce414426ff5d7d0ca29f8d98f18d4c878.tar.gz | |
Eliminate unused dummy variable
private-msgid: 199703270123.UAA25454@postman.osf.org
Diffstat (limited to 'lib/ExtUtils/Embed.pm')
| -rw-r--r-- | lib/ExtUtils/Embed.pm | 5 |
1 files changed, 3 insertions, 2 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('/', $_); |