Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package unpack-install-jammer for
openSUSE:Factory checked in at 2026-09-12 21:21:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/unpack-install-jammer (Old)
and /work/SRC/openSUSE:Factory/.unpack-install-jammer.new.1265 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "unpack-install-jammer"
Sat Sep 12 21:21:54 2026 rev:2 rq:1377537 version:0.3.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/unpack-install-jammer/unpack-install-jammer.changes
2021-11-17 01:15:45.390192105 +0100
+++
/work/SRC/openSUSE:Factory/.unpack-install-jammer.new.1265/unpack-install-jammer.changes
2026-09-12 21:25:48.307662823 +0200
@@ -1,0 +2,10 @@
+Sat Sep 12 14:17:39 UTC 2026 - Martin Pluskal <[email protected]>
+
+- Update to version 0.3.0:
+ * Support Windows file handles (mmap falls back to raw)
+ * Strip {}-quoted fields in tcl file lists
+ * default Home to "home" when File::HomeDir finds none
+- Modernise spec: perl() Requires, SPDX GPL-3.0-only,
+ Term::ProgressBar >= 2.00 floor from upstream use line
+
+-------------------------------------------------------------------
Old:
----
0.2.0.tar.gz
New:
----
0.3.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ unpack-install-jammer.spec ++++++
--- /var/tmp/diff_new_pack.SA5NpU/_old 2026-09-12 21:25:48.926688804 +0200
+++ /var/tmp/diff_new_pack.SA5NpU/_new 2026-09-12 21:25:48.928688888 +0200
@@ -1,7 +1,7 @@
#
# spec file for package unpack-install-jammer
#
-# Copyright (c) 2021 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2026 SUSE LLC and contributors
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,19 +17,18 @@
Name: unpack-install-jammer
-Version: 0.2.0
+Version: 0.3.0
Release: 0
Summary: Pulls files out of InstallJammer generated executable
installers
-License: GPL-3.0
-Group: Productivity/Archiving/Backup
-Url: https://github.com/lod/unpack-install-jammer/
+License: GPL-3.0-only
+URL: https://github.com/lod/unpack-install-jammer/
Source:
https://github.com/lod/unpack-install-jammer/archive/%{version}.tar.gz
BuildRequires: perl-macros
-Requires: perl-Term-ProgressBar
-Requires: perl-Modern-Perl
-Requires: perl-Compress-Raw-Lzma
-Requires: perl-File-HomeDir
-Requires: perl-Data-Dump
+Requires: perl(Compress::Raw::Lzma)
+Requires: perl(Data::Dump)
+Requires: perl(File::HomeDir)
+Requires: perl(Modern::Perl)
+Requires: perl(Term::ProgressBar) >= 2.00
BuildArch: noarch
%{perl_requires}
++++++ 0.2.0.tar.gz -> 0.3.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/unpack-install-jammer-0.2.0/README.md
new/unpack-install-jammer-0.3.0/README.md
--- old/unpack-install-jammer-0.2.0/README.md 2016-11-22 04:47:42.000000000
+0100
+++ new/unpack-install-jammer-0.3.0/README.md 2025-06-27 14:57:25.000000000
+0200
@@ -28,6 +28,8 @@
Other installers generated by other versions of InstallJammer may work in
different ways and require further work to support.
+Contributions from users have expanded support to Windows and additional
installers.
+
## Usage
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/unpack-install-jammer-0.2.0/extract.pl
new/unpack-install-jammer-0.3.0/extract.pl
--- old/unpack-install-jammer-0.2.0/extract.pl 2016-11-22 04:47:42.000000000
+0100
+++ new/unpack-install-jammer-0.3.0/extract.pl 2025-06-27 14:57:25.000000000
+0200
@@ -26,7 +26,7 @@
# There are a huge number of possible config variables, more possible with
customisation
# We only try to do the common ones
my %config_variables = (
- Home => File::HomeDir->my_home, # Set by tcl function
+ Home => File::HomeDir->my_home // "home", # Set by tcl function
);
my $prefix = "install_dir";
@@ -59,7 +59,7 @@
HELP
my $version = <<VERSION;
-$0 v0.2.0
+$0 v0.3.0
Copyright (C) 2016 David Tulloh
@@ -68,7 +68,7 @@
There is NO WARRANTY, to the extent permitted by law.
Latest version and source code available from
-https://github.com/lod/unpack_install_jammer/
+https://github.com/lod/unpack-install-jammer/
VERSION
my $usage = <<USAGE;
@@ -117,12 +117,15 @@
my $progress = Term::ProgressBar->new({count => 100, silent => $v!=1});
# Open two mmap handles into the target.
-# The setup process is fairly slow apparently, so we reuse the handles
+# The open process is fairly slow, so we reuse the handles
# $fh is for sequential access, searching through the file
# $fh2 is for binary access, grabbing chunks identified by the sequential scan
-open(my $fh, "<:mmap", $target);
-open(my $fh2, "<:mmap", $target);
+# mmap isn't supported by Windows, but we want it when we can use it
+my $cp_mmap = $^O eq 'MSWin32' ? "raw" : "mmap";
+
+open(my $fh, "<:$cp_mmap", $target);
+open(my $fh2, "<:$cp_mmap", $target);
sub normalize_path {
@@ -223,7 +226,7 @@
read($fh, my $raw, $meta->{c_size});
if ($out_filename and $v > 3) {
- open(my $raw_fh, ">", "$out_filename.raw");
+ open(my $raw_fh, ">:raw", "$out_filename.raw");
print $raw_fh $raw;
close $raw_fh;
}
@@ -263,7 +266,7 @@
}
if ($out_filename) {
- open(my $out_fh, ">", $out_filename);
+ open(my $out_fh, ">:raw", $out_filename);
print $out_fh $output;
} else {
return $output;
@@ -276,7 +279,7 @@
# $tcl_file can be a scalar string or a reference to a scalar string
# The second is preferred as the string will probably be rather large
- open(my $tcl_fh, '<', ref($tcl_file) ? $tcl_file : \$tcl_file) or die
$!;
+ open(my $tcl_fh, '<:raw', ref($tcl_file) ? $tcl_file : \$tcl_file) or
die $!;
my %install_files;
say_heading "Parsing tcl file" if $v > 2;
@@ -294,6 +297,12 @@
# id has a leading double colon, ditch it
$id =~ s/^:://;
+ # Fields could be quoted, by {}, if it is there remove it
+ # This is especially important for files and directories
+ for (values %new_elems) {
+ s/^{|}$//g if /^{.*}$/;
+ }
+
dd($_, $id, %new_elems) if $v > 2;
# Set every possible elem value rather than what is provided
