diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-22 15:02:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-22 15:02:08 +0000 |
| commit | c8a14fb6c15fa7e7d9f1ce7bc6160eab4bca36af (patch) | |
| tree | 7aa6c43184e0e65e5483b1f8f6cda8cbbc2d71e3 /universal.c | |
| parent | 188f0c84c39131341bfb7749b35facb3de682e0f (diff) | |
| download | perl-c8a14fb6c15fa7e7d9f1ce7bc6160eab4bca36af.tar.gz | |
Upgrade to version.pm 0.60
p4raw-id: //depot/perl@28276
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/universal.c b/universal.c index 0601645836..705573e9f9 100644 --- a/universal.c +++ b/universal.c @@ -415,11 +415,8 @@ XS(XS_version_new) if ( items == 1 ) { /* no parameter provided */ - if ( sv_isobject(ST(0)) ) { - /* copy existing object */ - vs = ST(0); - } - else { + if ( sv_isobject(ST(0)) ) + { /* create empty object */ vs = sv_newmortal(); sv_setpvn(vs,"",0); |