Hello community,

here is the log from the commit of package perl-Compress-Raw-Lzma for 
openSUSE:Factory checked in at 2019-01-21 10:58:24
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Compress-Raw-Lzma (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Compress-Raw-Lzma.new.28833 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Compress-Raw-Lzma"

Mon Jan 21 10:58:24 2019 rev:4 rq:666525 version:2.085

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Compress-Raw-Lzma/perl-Compress-Raw-Lzma.changes
    2019-01-03 18:08:28.352042048 +0100
+++ 
/work/SRC/openSUSE:Factory/.perl-Compress-Raw-Lzma.new.28833/perl-Compress-Raw-Lzma.changes
 2019-01-21 10:59:35.395334646 +0100
@@ -1,0 +2,24 @@
+Wed Jan 16 06:05:00 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 2.085
+   see /usr/share/doc/packages/perl-Compress-Raw-Lzma/Changes
+
+    2.085 12 January 2019
+  
+        * t/050interop-xz.t
+        Test harness can use a lot of memory. 
+        On systems with small memory t/050interop-xz.t can fail.
+        Free memory before invoking xz.
+        [rt.cpan.org #128194]  may fail (memory leak?)
+
+-------------------------------------------------------------------
+Mon Jan  7 06:03:32 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 2.084
+   see /usr/share/doc/packages/perl-Compress-Raw-Lzma/Changes
+
+    2.084 5 January 2019
+  
+        * No Changes
+
+-------------------------------------------------------------------

Old:
----
  Compress-Raw-Lzma-2.083.tar.gz

New:
----
  Compress-Raw-Lzma-2.085.tar.gz

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

Other differences:
------------------
++++++ perl-Compress-Raw-Lzma.spec ++++++
--- /var/tmp/diff_new_pack.Sp3Bri/_old  2019-01-21 10:59:36.495333217 +0100
+++ /var/tmp/diff_new_pack.Sp3Bri/_new  2019-01-21 10:59:36.499333212 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Compress-Raw-Lzma
 #
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX 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-Compress-Raw-Lzma
-Version:        2.083
+Version:        2.085
 Release:        0
 %define cpan_name Compress-Raw-Lzma
 Summary:        Low-Level Interface to lzma compression library

++++++ Compress-Raw-Lzma-2.083.tar.gz -> Compress-Raw-Lzma-2.085.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/Changes 
new/Compress-Raw-Lzma-2.085/Changes
--- old/Compress-Raw-Lzma-2.083/Changes 2018-12-30 10:06:09.000000000 +0100
+++ new/Compress-Raw-Lzma-2.085/Changes 2019-01-12 16:01:53.000000000 +0100
@@ -1,6 +1,18 @@
 CHANGES
 -------
 
+  2.085 12 January 2019
+
+      * t/050interop-xz.t
+      Test harness can use a lot of memory. 
+      On systems with small memory t/050interop-xz.t can fail.
+      Free memory before invoking xz.
+      [rt.cpan.org #128194]  may fail (memory leak?)
+
+  2.084 5 January 2019
+
+      * No Changes
+
   2.083 30 December 2018
 
       * No Changes
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/META.json 
new/Compress-Raw-Lzma-2.085/META.json
--- old/Compress-Raw-Lzma-2.083/META.json       2018-12-30 17:13:40.000000000 
+0100
+++ new/Compress-Raw-Lzma-2.085/META.json       2019-01-12 22:07:29.000000000 
+0100
@@ -34,6 +34,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "2.083",
+   "version" : "2.085",
    "x_serialization_backend" : "JSON::PP version 2.27300"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/META.yml 
new/Compress-Raw-Lzma-2.085/META.yml
--- old/Compress-Raw-Lzma-2.083/META.yml        2018-12-30 17:13:39.000000000 
+0100
+++ new/Compress-Raw-Lzma-2.085/META.yml        2019-01-12 22:07:28.000000000 
+0100
@@ -19,5 +19,5 @@
     - inc
     - t
     - private
-version: '2.083'
+version: '2.085'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/README 
new/Compress-Raw-Lzma-2.085/README
--- old/Compress-Raw-Lzma-2.083/README  2018-12-30 01:29:55.000000000 +0100
+++ new/Compress-Raw-Lzma-2.085/README  2019-01-12 22:06:48.000000000 +0100
@@ -1,11 +1,11 @@
 
                             Compress-Raw-Lzma
 
-                         Version 2.083
+                         Version 2.085
 
-                                29 Dec 2018
+                                12 Jan 2019
 
-       Copyright (c) 2009-2018 Paul Marquess. All rights reserved.
+       Copyright (c) 2009-2019 Paul Marquess. All rights reserved.
           This program is free software; you can redistribute it
            and/or modify it under the same terms as Perl itself.
 
@@ -186,7 +186,7 @@
         If you haven't installed Compress-Raw-Lzma then search 
Compress::Raw::Lzma.pm
         for a line like this:
 
-          $VERSION = "2.083" ;
+          $VERSION = "2.085" ;
 
      c. The version of lzma you have used.
         If you have successfully installed Compress-Raw-Lzma, this one-liner
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/lib/Compress/Raw/Lzma.pm 
new/Compress-Raw-Lzma-2.085/lib/Compress/Raw/Lzma.pm
--- old/Compress-Raw-Lzma-2.083/lib/Compress/Raw/Lzma.pm        2018-12-30 
01:29:56.000000000 +0100
+++ new/Compress-Raw-Lzma-2.085/lib/Compress/Raw/Lzma.pm        2019-01-12 
22:06:48.000000000 +0100
@@ -12,7 +12,7 @@
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
 
-$VERSION = '2.083';
+$VERSION = '2.085';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
@@ -1679,7 +1679,7 @@
 
 =head1 SEE ALSO
 
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, 
L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, 
L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, 
L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, 
L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, 
L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, 
L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, 
L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, 
L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, 
L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, 
L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, 
L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, 
L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, 
L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, 
L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, 
L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
 
 L<IO::Compress::FAQ|IO::Compress::FAQ>
 
@@ -1697,7 +1697,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2018 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/t/050interop-xz.t 
new/Compress-Raw-Lzma-2.085/t/050interop-xz.t
--- old/Compress-Raw-Lzma-2.083/t/050interop-xz.t       2018-04-04 
22:11:04.000000000 +0200
+++ new/Compress-Raw-Lzma-2.085/t/050interop-xz.t       2019-01-12 
21:56:29.000000000 +0100
@@ -5,6 +5,7 @@
     }
 }
 
+
 use lib qw(t t/compress);
 use strict;
 use warnings;
@@ -77,7 +78,7 @@
         return 1 ;
     }
 
-    diag "'$comp' failed: $?";
+    diag "'$comp' failed: \$?=$? \$!=$!";
     return 0 ;
 }
 
@@ -99,7 +100,7 @@
         return 1 ;
     }
 
-    diag "'$comp' failed: $?";
+    diag "'$comp' failed: \$?=$? \$!=$!";
     return 0 ;
 }
 
@@ -167,8 +168,13 @@
         my $lex = new LexFile my $file;
         writeFile($file, $X);
         
+        undef $x ;
+
+        # displayMemoryUsage("Before");
         my $got = '';
         ok readWithXz($file, $got, $xz_opts), "  readWithXz returns 0";
+        # displayMemoryUsage("After");
+
         is $got, $contents, "  got content";
     }
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Compress-Raw-Lzma-2.083/t/compress/CompTestUtils.pm 
new/Compress-Raw-Lzma-2.085/t/compress/CompTestUtils.pm
--- old/Compress-Raw-Lzma-2.083/t/compress/CompTestUtils.pm     2018-04-04 
22:11:04.000000000 +0200
+++ new/Compress-Raw-Lzma-2.085/t/compress/CompTestUtils.pm     2019-01-12 
21:55:58.000000000 +0100
@@ -657,6 +657,58 @@
     return $@ ? 0 : 1 ;
 }
 
+sub currmem {
+
+    # From 
https://github.com/eserte/srezic-repository/blob/master/perl/currmem#L14
+
+    my $pid = shift || $$;
+
+    no warnings 'portable'; # because of possible large hex values on 64bit 
systems
+
+    if ($^O eq 'freebsd' && open(MAP, "dd if=/proc/$pid/map bs=64k 2>/dev/null 
|")) { # FreeBSD
+        my $mem = 0;
+        my $realmem = 0;
+        while(<MAP>) {
+            my(@l) = split /\s+/;
+            my $delta = (hex($l[1])-hex($l[0]));
+            $mem += $delta;
+            if ($l[11] ne 'vnode') {
+                $realmem += $delta;
+            }
+
+        }
+
+        close MAP;
+        ($mem, $realmem);
+
+    } elsif ($^O eq 'linux' && open(MAP, "/proc/$pid/maps")) { # Linux
+
+        my $mem = 0;
+        my $realmem = 0;
+        while(<MAP>) {
+            my(@l) = split /\s+/;
+            my($start,$end) = split /-/, $l[0];
+            my $delta = (hex($end)-hex($start));
+            $mem += $delta;
+            if (!defined $l[5] || $l[5] eq '' || $l[5] eq '[heap]') {
+                $realmem += $delta;
+            }
+        }
+        close MAP;
+        ($mem, $realmem);
+    } else {
+           undef;
+    }
+}
+
+sub displayMemoryUsage
+{
+    my $message = shift;
+
+    my ($mem, $realmem) = currmem();
+    print "$message:\t$mem\t$realmem\n";
+}
+
 package CompTestUtils;
 
 1;


Reply via email to