diff options
| author | John Peacock <jpeacock@rowman.com> | 2007-10-24 18:04:45 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-25 08:46:27 +0000 |
| commit | 72287d960b27266568e4ac3e7defc1c830eec00b (patch) | |
| tree | 00bca7ea9f79a061ffdaf729a4653df4d65d0758 /util.c | |
| parent | 14c4693962e26696a60cec3d9cead6b9b4818149 (diff) | |
| download | perl-72287d960b27266568e4ac3e7defc1c830eec00b.tar.gz | |
Bring version.pm core into compliance with CPAN release
Message-ID: <471FF9BD.40204@havurah-software.org>
p4raw-id: //depot/perl@32189
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4395,10 +4395,10 @@ Perl_new_version(pTHX_ SV *ver) /* Begin copying all of the elements */ if ( hv_exists((HV *)ver, "qv", 2) ) - (void)hv_stores((HV *)hv, "qv", &PL_sv_yes); + (void)hv_stores((HV *)hv, "qv", newSViv(1)); if ( hv_exists((HV *)ver, "alpha", 5) ) - (void)hv_stores((HV *)hv, "alpha", &PL_sv_yes); + (void)hv_stores((HV *)hv, "alpha", newSViv(1)); if ( hv_exists((HV*)ver, "width", 5 ) ) { |