Hello community,

here is the log from the commit of package perl-common-sense for 
openSUSE:Factory checked in at 2013-06-21 13:31:08
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-common-sense (Old)
 and      /work/SRC/openSUSE:Factory/.perl-common-sense.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-common-sense"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-common-sense/perl-common-sense.changes      
2012-06-01 07:22:35.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-common-sense.new/perl-common-sense.changes 
2013-06-21 13:31:58.000000000 +0200
@@ -1,0 +2,9 @@
+Sat Jun 15 06:18:25 UTC 2013 - co...@suse.com
+
+- updated to 3.6
+     - work around more 5.16 breakage - $^H doesn't work as nicely as
+        p5p make you to believe.
+      - add features: unicode_strings current_sub fc evalbytes.
+      - disable features: array_base.
+
+-------------------------------------------------------------------

Old:
----
  common-sense-3.5.tar.gz

New:
----
  common-sense-3.6.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-common-sense.spec ++++++
--- /var/tmp/diff_new_pack.wtyKio/_old  2013-06-21 13:31:59.000000000 +0200
+++ /var/tmp/diff_new_pack.wtyKio/_new  2013-06-21 13:31:59.000000000 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-common-sense
 #
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
 
 
 Name:           perl-common-sense
-Version:        3.5
+Version:        3.6
 Release:        0
 %define cpan_name common-sense
 Summary:        Save a tree AND a kitten (sane defaults for Perl programs)
@@ -30,6 +30,7 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 #BuildRequires: perl(common::sense)
+#BuildRequires: perl(feature)
 %{perl_requires}
 
 %description
@@ -46,7 +47,6 @@
 possible, while at the same time, not limiting the expressive power
 available to the programmer".
 
-
 %prep
 %setup -q -n %{cpan_name}-%{version}
 find . -type f -print0 | xargs -0 chmod 644

++++++ common-sense-3.5.tar.gz -> common-sense-3.6.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/common-sense-3.5/Changes new/common-sense-3.6/Changes
--- old/common-sense-3.5/Changes        2012-03-24 13:45:57.000000000 +0100
+++ new/common-sense-3.6/Changes        2012-06-17 14:24:57.000000000 +0200
@@ -1,5 +1,13 @@
 Revision history for perl pragma common::sense.
 
+TODO: make it arch-specific?
+
+3.6  Sun Jun 17 14:24:53 CEST 2012
+       - work around more 5.16 breakage - $^H doesn't work as nicely as
+          p5p make you to believe.
+        - add features: unicode_strings current_sub fc evalbytes.
+        - disable features: array_base.
+
 3.5  Wed Mar  7 20:50:48 CET 2012
         - localise $^W, as this causes warnings with 5.16 when some lost
           soul uses -w. common::sense doesn't support $^W, but tries to
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/common-sense-3.5/META.json 
new/common-sense-3.6/META.json
--- old/common-sense-3.5/META.json      2012-03-24 13:46:00.000000000 +0100
+++ new/common-sense-3.6/META.json      2012-06-17 14:25:49.000000000 +0200
@@ -35,5 +35,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "3.5"
+   "version" : "3.6"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/common-sense-3.5/META.yml 
new/common-sense-3.6/META.yml
--- old/common-sense-3.5/META.yml       2012-03-24 13:46:00.000000000 +0100
+++ new/common-sense-3.6/META.yml       2012-06-17 14:25:49.000000000 +0200
@@ -18,4 +18,4 @@
     - t
     - inc
 requires: {}
-version: 3.5
+version: 3.6
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/common-sense-3.5/README new/common-sense-3.6/README
--- old/common-sense-3.5/README 2012-03-24 13:46:00.000000000 +0100
+++ new/common-sense-3.6/README 2012-06-17 14:25:49.000000000 +0200
@@ -2,19 +2,21 @@
     common::sense - save a tree AND a kitten, use common::sense!
 
 SYNOPSIS
-     use common::sense;
+       use common::sense;
 
-     # supposed to be the same, with much lower memory usage, as:
-     #
-     # use utf8;
-     # use strict qw(vars subs);
-     # use feature qw(say state switch);
-     # no warnings;
-     # use warnings qw(FATAL closed threads internal debugging pack
-     #                 portable prototype inplace io pipe unpack malloc
-     #                 deprecated glob digit printf layer
-     #                 reserved taint closure semicolon);
-     # no warnings qw(exec newline unopened);
+       # Supposed to be mostly the same, with much lower memory usage, as:
+  
+       # use utf8;
+       # use strict qw(vars subs);
+       # use feature qw(say state switch);
+       # use feature qw(unicode_strings unicode_eval current_sub fc evalbytes);
+       # no feature qw(array_base);
+       # no warnings;
+       # use warnings qw(FATAL closed threads internal debugging pack
+       #                 portable prototype inplace io pipe unpack malloc
+       #                 deprecated glob digit printf layer
+       #                 reserved taint closure semicolon);
+       # no warnings qw(exec newline unopened);
 
 DESCRIPTION
        “Nothing is more fairly distributed than common sense: no one thinks
@@ -101,7 +103,7 @@
 
         If that isn't hypocrisy! And all that from a mere program!
 
-    use feature qw(say state given)
+    use feature qw(say state given ...)
         We found it annoying that we always have to enable extra features.
         If something breaks because it didn't anticipate future changes, so
         be it. 5.10 broke almost all our XS modules and nobody cared either
@@ -121,6 +123,15 @@
         features by default is useful: commandline hacks and internal use
         scripts: See "much reduced typing", below.
 
+        There is one notable exception: "unicode_eval" is not enabled by
+        default. In our opinion, "use feature" had one main effect - newer
+        perl versions don't value backwards compatibility and the ability to
+        write modules for multiple perl versions much, after all, you can
+        use feature.
+
+        "unicode_eval" doesn't add a new feature, it breaks an existing
+        function.
+
     no warnings, but a lot of new errors
         Ah, the dreaded warnings. Even worse, the horribly dreaded "-w"
         switch: Even though we don't care if other people use warnings (and
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/common-sense-3.5/sense.pm.PL 
new/common-sense-3.6/sense.pm.PL
--- old/common-sense-3.5/sense.pm.PL    2012-03-08 19:46:02.000000000 +0100
+++ new/common-sense-3.6/sense.pm.PL    2012-06-17 14:25:29.000000000 +0200
@@ -5,6 +5,7 @@
 
 our $WARN;
 our $H;
+our %H;
 
 BEGIN {
    $H    = $^H;
@@ -14,6 +15,20 @@
 use utf8;
 use strict qw(subs vars);
 
+BEGIN {
+   if ($] >= 5.010) {
+      require feature;
+      feature->import (qw(say state switch));
+   }
+   if ($] >= 5.012) {
+      feature->import (qw(unicode_strings));
+   }
+   if ($] >= 5.016) {
+      feature->import (qw(current_sub fc evalbytes));
+      feature->unimport (qw(array_base));
+   }
+}
+
 no warnings;
 use warnings qw(FATAL closed threads internal debugging pack malloc portable 
prototype
                 inplace io pipe unpack deprecated glob digit printf
@@ -23,6 +38,7 @@
 BEGIN {
    $H    = $^H              & ~$H;
    $WARN = ${^WARNING_BITS} & ~$WARN;
+   %H    = %^H;
 }
 
 while (<DATA>) {
@@ -30,8 +46,12 @@
       print "   # use warnings\n";
       printf "   \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n",
              join "", map "\\x$_", unpack "(H2)*", $WARN;
-      print "   # use strict, use utf8;\n";
+      print "   # use strict, use utf8; use feature;\n";
       printf "   \$^H |= 0x%x;\n", $H;
+
+      if (my @features = grep /^feature_/, keys %H) {
+         print "   \@^H{qw(@features)} = (1) x ", (scalar @features), ";\n";
+      }
    } else {
       print;
    }
@@ -48,20 +68,21 @@
 
 =head1 SYNOPSIS
 
- use common::sense;
-
- # supposed to be the same, with much lower memory usage, as:
- #
- # use utf8;
- # use strict qw(vars subs);
- # use feature qw(say state switch);
- # no warnings;
- # use warnings qw(FATAL closed threads internal debugging pack
- #                 portable prototype inplace io pipe unpack malloc
- #                 deprecated glob digit printf layer
- #                 reserved taint closure semicolon);
- # no warnings qw(exec newline unopened);
+   use common::sense;
 
+   # Supposed to be mostly the same, with much lower memory usage, as:
+  
+   # use utf8;
+   # use strict qw(vars subs);
+   # use feature qw(say state switch);
+   # use feature qw(unicode_strings unicode_eval current_sub fc evalbytes);
+   # no feature qw(array_base);
+   # no warnings;
+   # use warnings qw(FATAL closed threads internal debugging pack
+   #                 portable prototype inplace io pipe unpack malloc
+   #                 deprecated glob digit printf layer
+   #                 reserved taint closure semicolon);
+   # no warnings qw(exec newline unopened);
 
 =head1 DESCRIPTION
 
@@ -162,7 +183,7 @@
 If that isn't hypocrisy! And all that from a mere program!
 
 
-=item use feature qw(say state given)
+=item use feature qw(say state given ...)
 
 We found it annoying that we always have to enable extra features. If
 something breaks because it didn't anticipate future changes, so be
@@ -182,6 +203,12 @@
 default is useful: commandline hacks and internal use scripts: See "much
 reduced typing", below.
 
+There is one notable exception: C<unicode_eval> is not enabled by
+default. In our opinion, C<use feature> had one main effect - newer perl
+versions don't value backwards compatibility and the ability to write
+modules for multiple perl versions much, after all, you can use feature.
+
+C<unicode_eval> doesn't add a new feature, it breaks an existing function.
 
 =item no warnings, but a lot of new errors
 
@@ -271,17 +298,13 @@
 
 package common::sense;
 
-our $VERSION = '3.5';
+our $VERSION = '3.6';
 
 # overload should be included
 
 sub import {
-   local $^W; # work around perl 5.16 spewing out warnings for next line
+   local $^W; # work around perl 5.16 spewing out warnings for next statement
 IMPORT
-   # use feature
-   $^H{feature_switch} =
-   $^H{feature_say}    =
-   $^H{feature_state}  = 1;
 }
 
 1;

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to