Hello community,

here is the log from the commit of package perl-Devel-Symdump for 
openSUSE:Factory checked in at 2015-06-15 17:46:28
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-Symdump (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Devel-Symdump.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Devel-Symdump"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Devel-Symdump/perl-Devel-Symdump.changes    
2015-04-25 21:15:32.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Devel-Symdump.new/perl-Devel-Symdump.changes   
    2015-06-15 17:46:30.000000000 +0200
@@ -1,0 +2,13 @@
+Sun Jun 14 08:04:58 UTC 2015 - [email protected]
+
+- updated to 2.15
+   see /usr/share/doc/packages/perl-Devel-Symdump/Changes
+
+  2015-06-11  k  <[email protected]>
+  
+       * release 2.15
+  
+       * In the tests, always check for exists before checking for
+       definedness (Reini Urban)
+
+-------------------------------------------------------------------

Old:
----
  Devel-Symdump-2.14.tar.gz

New:
----
  Devel-Symdump-2.15.tar.gz

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

Other differences:
------------------
++++++ perl-Devel-Symdump.spec ++++++
--- /var/tmp/diff_new_pack.hlLoWv/_old  2015-06-15 17:46:31.000000000 +0200
+++ /var/tmp/diff_new_pack.hlLoWv/_new  2015-06-15 17:46:31.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Devel-Symdump
-Version:        2.14
+Version:        2.15
 Release:        0
 %define cpan_name Devel-Symdump
 Summary:        Dump Symbol Names or the Symbol Table

++++++ Devel-Symdump-2.14.tar.gz -> Devel-Symdump-2.15.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/Changes 
new/Devel-Symdump-2.15/Changes
--- old/Devel-Symdump-2.14/Changes      2014-12-16 05:27:59.000000000 +0100
+++ new/Devel-Symdump-2.15/Changes      2015-06-11 04:59:40.000000000 +0200
@@ -1,3 +1,10 @@
+2015-06-11  k  <[email protected]>
+
+       * release 2.15
+
+       * In the tests, always check for exists before checking for
+       definedness (Reini Urban)
+
 2014-12-16  k  <[email protected]>
 
        * release 2.14
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/META.json 
new/Devel-Symdump-2.15/META.json
--- old/Devel-Symdump-2.14/META.json    2014-12-16 05:38:39.000000000 +0100
+++ new/Devel-Symdump-2.15/META.json    2015-06-11 05:02:51.000000000 +0200
@@ -4,7 +4,7 @@
       "Andreas Koenig <[email protected]>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter 
version 2.143240",
+   "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter 
version 2.150005",
    "keywords" : [
       "symbol table inspection"
    ],
@@ -47,5 +47,6 @@
          "url" : "git://github.com/andk/devel-symdump.git"
       }
    },
-   "version" : "2.14"
+   "version" : "2.15",
+   "x_serialization_backend" : "JSON::PP version 2.27300"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/META.yml 
new/Devel-Symdump-2.15/META.yml
--- old/Devel-Symdump-2.14/META.yml     2014-12-16 05:38:38.000000000 +0100
+++ new/Devel-Symdump-2.15/META.yml     2015-06-11 05:02:51.000000000 +0200
@@ -7,7 +7,7 @@
 configure_requires:
   ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 
2.143240'
+generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter 
version 2.150005'
 keywords:
   - 'symbol table inspection'
 license: perl
@@ -25,4 +25,5 @@
   perl: '5.004'
 resources:
   repository: git://github.com/andk/devel-symdump.git
-version: '2.14'
+version: '2.15'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.016'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/SIGNATURE 
new/Devel-Symdump-2.15/SIGNATURE
--- old/Devel-Symdump-2.14/SIGNATURE    2014-12-16 05:38:46.000000000 +0100
+++ new/Devel-Symdump-2.15/SIGNATURE    2015-06-11 05:02:51.000000000 +0200
@@ -1,5 +1,5 @@
 This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.73.
+signed via the Module::Signature module, version 0.79.
 
 To verify the content in this distribution, first make sure you have
 Module::Signature installed, then type:
@@ -14,13 +14,13 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 a0604ba8b5a14e3dfa0d781798fb3ba4fe89fca9 Changes
+SHA1 0db9bcf95981556302e06db39b2758191593c63c Changes
 SHA1 1a8c5d596cff0111353e14fa44e6caca7cce8c13 MANIFEST
-SHA1 330b4d11a6fb13faa609356db31aa7de14fcfe4f META.json
-SHA1 05e11782074cbbd59139e4632f9e80e61ff51244 META.yml
+SHA1 9d42d82b27deeee1eed560ae9f4bb6e1eb74bd86 META.json
+SHA1 0ef7a02c74bbb5b4865f1ba8168b9b27afc9af28 META.yml
 SHA1 a58477f4ebc16c72b70c3c3bd8981bf808598d70 Makefile.PL
 SHA1 5db31f42fa30d51489b21e2687781c054527d3b3 README
-SHA1 65f1a6f2c45e6fb97f9641bd1c9e8283bf45c852 lib/Devel/Symdump.pm
+SHA1 492b7d5d10a8e4ba8b759da040ecff1dfd05be1f lib/Devel/Symdump.pm
 SHA1 fef2e4c5ea88bd09f2af618e32a58ee87be965a4 lib/Devel/Symdump/Export.pm
 SHA1 6fbcf9e39c02e9889a6d8bf9cb2c6444967dc841 t/autogen.t
 SHA1 ac80cb093bffdce80ea28209197e58ec40b0cdd4 t/diff.t
@@ -29,12 +29,12 @@
 SHA1 835eaa7ac1ac82351bcc0f8fca734ed539459a95 t/pod.t
 SHA1 61383cc359764b3323e77a07ebf846f215331d34 t/podcover.t
 SHA1 a3c92f14ca7be245384a8a9f1425f6b99c2f42f1 t/recur.t
-SHA1 ca9823feb952a1794d6488efb5cdcdb607b6e431 t/symdump.t
+SHA1 eb77a889d1fbfc55658cb80e9791c63b10b369bd t/symdump.t
 SHA1 d7e8e57a5c9676c8fd716b6b0fe13559c83d8711 t/tree.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1
 
-iEYEARECAAYFAlSPt08ACgkQ7IA58KMXwV2wDwCg1W+2g9ssu4RNFDXrWm7yNc3z
-ifsAoIDWEkbHek8FnOcLs049xrOBmPRF
-=mmzF
+iEYEARECAAYFAlV4+lsACgkQ7IA58KMXwV3gqgCg6D8U8nUoz1f/zs0Luubsu+Mi
+w/MAn1vgr3AJbT7Y9NodxXlevYodMpiX
+=tmM1
 -----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/lib/Devel/Symdump.pm 
new/Devel-Symdump-2.15/lib/Devel/Symdump.pm
--- old/Devel-Symdump-2.14/lib/Devel/Symdump.pm 2014-12-08 22:29:07.000000000 
+0100
+++ new/Devel-Symdump-2.15/lib/Devel/Symdump.pm 2015-06-11 05:01:52.000000000 
+0200
@@ -5,7 +5,7 @@
 use strict;
 use vars qw($Defaults $VERSION *ENTRY $MAX_RECURSION);
 
-$VERSION = '2.14';
+$VERSION = '2.15';
 $MAX_RECURSION = 97;
 
 $Defaults = {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-Symdump-2.14/t/symdump.t 
new/Devel-Symdump-2.15/t/symdump.t
--- old/Devel-Symdump-2.14/t/symdump.t  2014-12-08 22:28:30.000000000 +0100
+++ new/Devel-Symdump-2.15/t/symdump.t  2015-06-11 04:56:56.000000000 +0200
@@ -70,7 +70,7 @@
 $a = "@a";
 #write;
 like (
-      $a, "/main::INC.*main::_.*main::a/"
+      $a, "/main::INC.*main::_.*main::a/", "packsort arrays"
      );
 
 eval {
@@ -79,7 +79,7 @@
 $a = $@ ? $@ : "@a";
 like ($a,
       "/^invalid Devel::Symdump method: really_bogus\(\)/",
-     );
+      "really_bogus");
 
 $sob = rnew Devel::Symdump;
 
@@ -89,7 +89,7 @@
 }
 $a="@m";
 like ($a,
-      
"/Carp.*Devel.*Devel::Symdump.*Devel::Symdump::Export.*DynaLoader.*Exporter.*Hidden.*big::long::hairy.*funny::little.*strict/");
+      
"/Carp.*Devel.*Devel::Symdump.*Devel::Symdump::Export.*DynaLoader.*Exporter.*Hidden.*big::long::hairy.*funny::little.*strict/",
 "active_packages");
 
 my %m=();
 for (active_modules($sob)) {
@@ -97,12 +97,11 @@
 }
 $a = join " ", keys %m;
 #print "[$a]\n";
-ok (exists $m{"Carp"} &&
-    exists $m{"Devel::Symdump"} &&
+ok (exists $m{"Devel::Symdump"} &&
     exists $m{"Devel::Symdump::Export"} &&
     exists $m{"Exporter"} &&
     exists $m{"strict"} &&
-    exists $m{"vars"});
+    exists $m{"vars"}, "active_modules");
 
 # Cannot test on the number of packages and functions because not
 # every perl is built the same way. Static perls will reveal more
@@ -145,17 +144,23 @@
     my $ob = shift;
     my @modules = ();
     my($pack);
-    for $pack ("main", $ob->packages) {
-       if (
-               defined &{ "$pack\::import"   }         ||
-               defined &{ "$pack\::AUTOLOAD" }         ||
-               @{ "$pack\::ISA"      } ||
-               @{ "$pack\::EXPORT"   } ||
-               @{ "$pack\::EXPORT_OK"}
-           )
-       {
-           push @modules, $pack;
-       }
+    for $pack ("main", sort $ob->packages) {
+        no strict 'refs';
+        my %stash = %{"$pack\::"};
+        # With restricted hashes we need to check with exists first
+        # XXX Core limitation: copying to %stash removes the READONLY flag
+        my $restricted = Internals::SvREADONLY(%{"$pack\::"});
+        #warn (($restricted ? "" : "un")."restricted $pack\::\n");
+      FUNCS:
+        for my $f (qw(import AUTOLOAD ISA EXPORT EXPORT_OK)) {
+            if (!$restricted or exists($stash{$f})) {
+                if (defined &{ "$pack\::$f"}) {
+                    push @modules, $pack;
+                    #warn "$pack \n";
+                    last FUNCS;
+                }
+            }
+        }
     }
     return sort @modules;
 }


Reply via email to