diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 10:01:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 10:01:49 +0000 |
| commit | a104f515e1396d6efe6b0936f76a68f8852f5b49 (patch) | |
| tree | 9cec9de6e6ead97b82ce8ff1911c646a4e9b9fa4 /lib/ExtUtils/xsubpp | |
| parent | 1450d0701497dd4642a74925571472b56356c156 (diff) | |
| download | perl-a104f515e1396d6efe6b0936f76a68f8852f5b49.tar.gz | |
s/undef/NO_INIT/g in change#5183
p4raw-link: @5183 on //depot/perl: 4628e4f8c013135d9c9ab7023d7730ab67289444
p4raw-id: //depot/perl@5195
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 4ff0d3834c..49d167dc0b 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1576,7 +1576,7 @@ sub generate_init { eval qq/print "\\t$var;\\n"/; warn $@ if $@; } - if ($defaults{$var} eq 'undef') { + if ($defaults{$var} eq 'NO_INIT') { $deferred .= eval qq/"\\n\\tif (items >= $num) {\\n$expr;\\n\\t}\\n"/; } else { $deferred .= eval qq/"\\n\\tif (items < $num)\\n\\t $var = $defaults{$var};\\n\\telse {\\n$expr;\\n\\t}\\n"/; |