diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-20 15:31:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-20 15:31:50 +0000 |
| commit | 438cc6089d922e42fd6635c1b8212ad034402745 (patch) | |
| tree | b2ddf444b754ecf939209c93acccc8bf038450eb /lib/ExtUtils/xsubpp | |
| parent | 27dd2420592a44007a8d1534563f52fae745a50a (diff) | |
| download | perl-438cc6089d922e42fd6635c1b8212ad034402745.tar.gz | |
Retract the #8838 and #8840 for now because of
the DB_File tie problem.
p4raw-id: //depot/perl@8846
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 0f3d1e618f..2093633930 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -274,7 +274,7 @@ foreach $key (keys %output_expr) { my ($t, $with_size, $arg, $sarg) = ($output_expr{$key} =~ - m[^ \s+ sv_set ( [iunp] | ref_[iunp] ) v (n)? # Type, is_setpvn + m[^ \s+ sv_set ( [iunp] ) v (n)? # Type, is_setpvn \s* \( \s* $cast \$arg \s* , \s* ( (??{ $bal }) ) # Set from ( (??{ $size }) )? # Possible sizeof set-from @@ -1354,18 +1354,6 @@ EOF print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n"; $prepush_done = 1; } - elsif ($t and $t->[0] =~ /^ref_/) { - local $ntype = $ret_type; - my $what = eval qq("$t->[2]"); - warn $@ if $@; - my $size = $t->[3]; - $size = '' unless defined $size; - $size = eval qq("$size"); - my $n = $t->[1] || ''; - warn $@ if $@; - print "\tXSprePUSH; sv_set$t->[0]v$n(TARG, $what$size); PUSHTARG;\n"; - $prepush_done = 1; - } elsif ($t) { my $what = eval qq("$t->[2]"); warn $@ if $@; |