[perl] Sub-package constant

[Petr Pisar]

commit 5daffb07439776e2fce86f27116586a8b21b86c9
Author: Petr Písař <ppisar at redhat.com>
Date:   Thu Mar 21 11:36:40 2013 +0100

    Sub-package constant

 perl.spec |   44 ++++++++++++++++++++++++++++++++++++++++++--
 1 files changed, 42 insertions(+), 2 deletions(-)
---
diff --git a/perl.spec b/perl.spec
index 20268b3..2519bed 100644
--- a/perl.spec
+++ b/perl.spec
@@ -29,7 +29,7 @@
 Name:           perl
 Version:        %{perl_version}
 # release number must be even higher, because dual-lived modules will be broken otherwise
-Release:        263%{?dist}
+Release:        264%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -418,6 +418,34 @@ This module provides a Perl interface to the zlib compression library.
 It is used by IO::Compress::Zlib.
 %endif
 
+%package constant
+Summary:        Perl pragma to declare constants
+Group:          Development/Libraries
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.23
+Requires:       %perl_compat
+Requires:       perl(Carp)
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.3-264
+
+%description constant
+This pragma allows you to declare constants at compile-time:
+
+use constant PI => 4 * atan2(1, 1);
+
+When you declare a constant such as "PI" using the method shown above,
+each machine your script runs upon can have as many digits of accuracy
+as it can use. Also, your program will be easier to read, more likely
+to be maintained (and maintained correctly), and far less likely to
+send a space probe to the wrong planet because nobody noticed the one
+equation in which you wrote 3.14195.
+
+When a constant is used in an expression, Perl replaces it with its
+value at compile time, and may then optimize the expression further.
+In particular, any code in an "if (CONSTANT)" block will be optimized
+away if the constant is false.
+
 %package CPAN
 Summary:        Query, download and build perl modules from CPAN sites
 Group:          Development/Languages
@@ -1580,7 +1608,8 @@ Requires:       perl-macros
 
 Requires:       perl-Archive-Extract, perl-Archive-Tar, perl-autodie
 Requires:       perl-B-Lint, perl-Compress-Raw-Bzip2,
-Requires:       perl-Carp, perl-Compress-Raw-Zlib, perl-CGI, perl-CPAN,
+Requires:       perl-Carp, perl-Compress-Raw-Zlib, perl-CGI, perl-constant,
+Requires:       perl-CPAN,
 Requires:       perl-CPAN-Meta, perl-CPAN-Meta-YAML, perl-CPANPLUS, perl-Encode
 Requires:       perl-Data-Dumper, perl-Digest, perl-Digest-MD5, perl-Digest-SHA,
 Requires:       perl-ExtUtils-CBuilder, perl-ExtUtils-Embed,
@@ -1971,6 +2000,10 @@ sed \
 %exclude %{_mandir}/man3/CGI.3*
 %exclude %{_mandir}/man3/CGI::*.3*
 
+# constant
+%exclude %{privlib}/constant.pm
+%exclude %{_mandir}/man3/constant.3*
+
 # CPAN
 %exclude %{_bindir}/cpan
 %exclude %{privlib}/App/Cpan.pm
@@ -2559,6 +2592,10 @@ sed \
 %{_mandir}/man3/Compress::Raw::Zlib*
 %endif
 
+%files constant
+%{privlib}/constant.pm
+%{_mandir}/man3/constant.3*
+
 %files CPAN
 %{_bindir}/cpan
 %{privlib}/App/Cpan.pm
@@ -3158,6 +3195,9 @@ sed \
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Thu Mar 21 2013 Petr Pisar <ppisar at redhat.com> - 4:5.16.3-264
+- Sub-package constant (bug #924169)
+
 * Tue Mar 19 2013 Petr Pisar <ppisar at redhat.com> - 4:5.16.3-263
 - Correct perl-Digest-MD5 dependencies
 - Remove bundled Archive-Extract, File-Fetch, HTTP-Tiny,