Hello community,

here is the log from the commit of package perl-File-MMagic for 
openSUSE:Factory checked in at 2013-07-30 16:41:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-MMagic (Old)
 and      /work/SRC/openSUSE:Factory/.perl-File-MMagic.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-File-MMagic"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-MMagic/perl-File-MMagic.changes        
2013-06-09 16:57:34.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-File-MMagic.new/perl-File-MMagic.changes   
2013-07-30 16:41:34.000000000 +0200
@@ -1,0 +2,8 @@
+Sat Jul 27 11:58:16 UTC 2013 - co...@suse.com
+
+- updated to 1.30
+       * MMagic.pm: Version 1.30.
+       * MMagic.pm (checktype_byfilename): Remove Scalar::Util::weaken.
+         To prevent too much decrement REFCNT.
+
+-------------------------------------------------------------------

Old:
----
  File-MMagic-1.29.tar.gz

New:
----
  File-MMagic-1.30.tar.gz

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

Other differences:
------------------
++++++ perl-File-MMagic.spec ++++++
--- /var/tmp/diff_new_pack.d60yHQ/_old  2013-07-30 16:41:35.000000000 +0200
+++ /var/tmp/diff_new_pack.d60yHQ/_new  2013-07-30 16:41:35.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-File-MMagic
-Version:        1.29
+Version:        1.30
 Release:        0
 %define cpan_name File-MMagic
 Summary:        Guess file type

++++++ File-MMagic-1.29.tar.gz -> File-MMagic-1.30.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/File-MMagic-1.29/ChangeLog 
new/File-MMagic-1.30/ChangeLog
--- old/File-MMagic-1.29/ChangeLog      2012-07-12 02:39:35.000000000 +0200
+++ new/File-MMagic-1.30/ChangeLog      2013-07-02 08:21:18.000000000 +0200
@@ -1,3 +1,12 @@
+2013-07-02  NOKUBI Takatsugu  <k...@daionet.gr.jp>
+
+       * MMagic.pm: Version 1.30.
+
+2013-01-21  NOKUBI Takatsugu  <k...@daionet.gr.jp>
+
+       * MMagic.pm (checktype_byfilename): Remove Scalar::Util::weaken.
+         To prevent too much decrement REFCNT.
+
 2012-07-12  NOKUBI Takatsugu  <k...@daionet.gr.jp>
 
        * MMagic.pm (checktype_contents): Fix infinity loop bug.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/File-MMagic-1.29/META.yml 
new/File-MMagic-1.30/META.yml
--- old/File-MMagic-1.29/META.yml       2012-07-12 02:42:33.000000000 +0200
+++ new/File-MMagic-1.30/META.yml       2013-07-02 08:23:46.000000000 +0200
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               File-MMagic
-version:            1.29
+version:            1.30
 abstract:           Guess file type from contents
 author:
     - NOKUBI Takatsugu <k...@daionet.gr.jp>
@@ -15,7 +15,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.55_02
+generated_by:       ExtUtils::MakeMaker version 6.57_05
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/File-MMagic-1.29/MMagic.pm 
new/File-MMagic-1.30/MMagic.pm
--- old/File-MMagic-1.29/MMagic.pm      2012-07-12 02:42:19.000000000 +0200
+++ new/File-MMagic-1.30/MMagic.pm      2013-07-02 08:21:40.000000000 +0200
@@ -1,6 +1,6 @@
 # File::MMagic
 #
-# $Id: MMagic.pm 288 2012-07-12 00:42:19Z knok $
+# $Id: MMagic.pm 290 2013-07-02 06:21:39Z knok $
 #
 # This program is originated from file.kulp that is a production of The
 # Unix Reconstruction Projct.
@@ -304,7 +304,6 @@
 
 use FileHandle;
 use strict;
-use Scalar::Util;
 
 use vars qw(
 %TEMPLATES %ESC $VERSION
@@ -342,7 +341,7 @@
            t => "\t",
            f => "\f");
 
-$VERSION = "1.29";
+$VERSION = "1.30";
 $allowEightbit = 1;
 }
 
@@ -740,7 +739,6 @@
 
     $fname =~ s/^.*\///;
     for my $regex (keys %{$self->{FILEEXTS}}) {
-       Scalar::Util::weaken($self->{FILEEXTS});
        if ($fname =~ /$regex/i) {
            if ((defined $type && $type !~ /;/) || (! defined $type)) {
                $type = $self->{FILEEXTS}->{$regex}; # has no x-type param

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

Reply via email to