Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-String-Util for
openSUSE:Factory checked in at 2026-07-07 21:05:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-String-Util (Old)
and /work/SRC/openSUSE:Factory/.perl-String-Util.new.1982 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-String-Util"
Tue Jul 7 21:05:59 2026 rev:5 rq:1364274 version:1.360.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-String-Util/perl-String-Util.changes
2025-01-01 23:07:50.632302445 +0100
+++
/work/SRC/openSUSE:Factory/.perl-String-Util.new.1982/perl-String-Util.changes
2026-07-07 21:08:28.017219134 +0200
@@ -1,0 +2,6 @@
+Tue Jul 7 11:19:00 UTC 2026 - Tina Müller <[email protected]>
+
+- updated to 1.360.0 (1.36)
+ see /usr/share/doc/packages/perl-String-Util/Changes
+
+-------------------------------------------------------------------
Old:
----
String-Util-1.35.tar.gz
New:
----
README.md
String-Util-1.36.tar.gz
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-String-Util.spec ++++++
--- /var/tmp/diff_new_pack.HDitAM/_old 2026-07-07 21:08:29.429267936 +0200
+++ /var/tmp/diff_new_pack.HDitAM/_new 2026-07-07 21:08:29.441268350 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-String-Util
#
-# Copyright (c) 2024 SUSE LLC
+# 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
@@ -18,15 +18,16 @@
%define cpan_name String-Util
Name: perl-String-Util
-Version: 1.350.0
+Version: 1.360.0
Release: 0
-# 1.35 -> normalize -> 1.350.0
-%define cpan_version 1.35
+# 1.36 -> normalize -> 1.360.0
+%define cpan_version 1.36
License: MIT
Summary: String processing utility functions
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/B/BA/BAKERSCOT/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
+Source100: README.md
BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
@@ -39,7 +40,7 @@
processing strings in various ways.
%prep
-%autosetup -n %{cpan_name}-%{cpan_version}
+%autosetup -n %{cpan_name}-%{cpan_version} -p1
%build
perl Makefile.PL INSTALLDIRS=vendor
++++++ README.md ++++++
## Build Results
Current state of perl in openSUSE:Factory is
The current state of perl in the devel project build (devel:languages:perl)
++++++ String-Util-1.35.tar.gz -> String-Util-1.36.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/String-Util-1.35/META.json
new/String-Util-1.36/META.json
--- old/String-Util-1.35/META.json 2024-09-04 18:22:39.000000000 +0200
+++ new/String-Util-1.36/META.json 2026-07-06 22:51:24.000000000 +0200
@@ -49,6 +49,6 @@
"web" : "https://github.com/scottchiefbaker/String-Util";
}
},
- "version" : "1.35",
+ "version" : "1.36",
"x_serialization_backend" : "JSON::PP version 4.16"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/String-Util-1.35/META.yml
new/String-Util-1.36/META.yml
--- old/String-Util-1.35/META.yml 2024-09-04 18:22:39.000000000 +0200
+++ new/String-Util-1.36/META.yml 2026-07-06 22:51:24.000000000 +0200
@@ -22,5 +22,5 @@
perl: '5.014'
resources:
repository: https://github.com/scottchiefbaker/String-Util.git
-version: '1.35'
+version: '1.36'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/String-Util-1.35/README.md
new/String-Util-1.36/README.md
--- old/String-Util-1.35/README.md 2024-09-04 18:22:14.000000000 +0200
+++ new/String-Util-1.36/README.md 2026-07-06 22:50:27.000000000 +0200
@@ -1,27 +1,33 @@
-# NAME
+## Name
**String::Util** -- String processing utility functions
-# DESCRIPTION
+## Description
**String::Util** provides a collection of small, handy functions for processing
strings in various ways.
-# INSTALLATION
+## Installation
- cpanm String::Util
+```
+cpanm String::Util
+```
-# USAGE
+## Usage
No functions are exported by default, they must be specified:
- use String::Util qw(trim eqq contains)
+```perl
+use String::Util qw(trim eqq contains)
+```
alternately you can use `:all` to export **all** of the functions
- use String::Util qw(:all)
+```perl
+use String::Util qw(:all)
+```
-# FUNCTIONS
+## Functions
## collapse($string)
@@ -29,7 +35,9 @@
Also removes all leading and trailing whitespace. Undefined input results in
undefined output.
- $var = collapse(" Hello world! "); # "Hello world!"
+```
+$var = collapse(" Hello world! "); # "Hello world!"
+```
## hascontent($scalar), nocontent($scalar)
@@ -43,18 +51,22 @@
`nocontent()` returns the negation of `hascontent()`.
- $var = hascontent(""); # False
- $var = hascontent(" "); # False
- $var = hascontent("a"); # True
-
- $var = nocontent(""); # True
- $var = nocontent("a"); # False
+```
+$var = hascontent(""); # False
+$var = hascontent(" "); # False
+$var = hascontent("a"); # True
+
+$var = nocontent(""); # True
+$var = nocontent("a"); # False
+```
## trim($string), ltrim($string), rtrim($string)
Returns the string with all leading and trailing whitespace removed.
- $var = trim(" my string "); # "my string"
+```perl
+$var = trim(" my string "); # "my string"
+```
`ltrim()` trims **leading** whitespace only.
@@ -65,7 +77,9 @@
Removes **all** whitespace characters from the given string. This includes
spaces
between words.
- $var = nospace(" Hello World! "); # "HelloWorld!"
+```
+$var = nospace(" Hello World! "); # "HelloWorld!"
+```
## htmlesc($string)
@@ -88,33 +102,41 @@
of quotes or nothing is done to the value. Undef input results in undef output.
Some examples and what they return:
- unquote(q|'Hendrix'|); # Hendrix
- unquote(q|"Hendrix"|); # Hendrix
- unquote(q|Hendrix|); # Hendrix
- unquote(q|"Hendrix'|); # "Hendrix'
- unquote(q|O'Sullivan|); # O'Sullivan
+```
+unquote(q|'Hendrix'|); # Hendrix
+unquote(q|"Hendrix"|); # Hendrix
+unquote(q|Hendrix|); # Hendrix
+unquote(q|"Hendrix'|); # "Hendrix'
+unquote(q|O'Sullivan|); # O'Sullivan
+```
**option:** braces
If the braces option is true, surrounding braces such as \[\] and {} are also
removed. Some examples:
- unquote(q|[Janis]|, braces=>1); # Janis
- unquote(q|{Janis}|, braces=>1); # Janis
- unquote(q|(Janis)|, braces=>1); # Janis
+```perl
+unquote(q|[Janis]|, braces=>1); # Janis
+unquote(q|{Janis}|, braces=>1); # Janis
+unquote(q|(Janis)|, braces=>1); # Janis
+```
## repeat($string, $count)
Returns the given string repeated the given number of times. The following
command outputs "Fred" three times:
- print repeat('Fred', 3), "\n";
+```
+print repeat('Fred', 3), "\n";
+```
Note that `repeat()` was created a long time based on a misunderstanding of how
the perl operator 'x' works. The following command using `x` would perform
exactly the same as the above command.
- print 'Fred' x 3, "\n";
+```
+print 'Fred' x 3, "\n";
+```
Use whichever you prefer.
@@ -124,24 +146,30 @@
are `undef`. If only one is `undef`, or if they are both defined but
different,
returns false. Here are some examples and what they return.
- $var = eqq('x', 'x'); # True
- $var = eqq('x', undef); # False
- $var = eqq(undef, undef); # True
+```
+$var = eqq('x', 'x'); # True
+$var = eqq('x', undef); # False
+$var = eqq(undef, undef); # True
+```
## neqq($scalar1, $scalar2)
-The opposite of `neqq`, returns true if the two values are \*not\* the same.
+The opposite of `eqq`, returns true if the two values are **not** the same.
Here are some examples and what they return.
- $var = neqq('x', 'x'); # False
- $var = neqq('x', undef); # True
- $var = neqq(undef, undef); # False
+```
+$var = neqq('x', 'x'); # False
+$var = neqq('x', undef); # True
+$var = neqq(undef, undef); # False
+```
## ords($string)
Returns the given string represented as the ascii value of each character.
- $var = ords('Hendrix'); # {72}{101}{110}{100}{114}{105}{120}
+```
+$var = ords('Hendrix'); # {72}{101}{110}{100}{114}{105}{120}
+```
**options**
@@ -150,72 +178,88 @@
If convert\_spaces is true (which is the default) then spaces are
converted to
their matching ord values. So, for example, this code:
- $var = ords('a b', convert_spaces=>1); # {97}{32}{98}
+ ```perl
+ $var = ords('a b', convert_spaces=>1); # {97}{32}{98}
+ ```
This code returns the same thing:
- $var = ords('a b'); # {97}{32}{98}
+ ```
+ $var = ords('a b'); # {97}{32}{98}
+ ```
If convert\_spaces is false, then spaces are just returned as spaces. So
this
code:
- ords('a b', convert_spaces=>0); # {97} {98}
+ ```perl
+ ords('a b', convert_spaces=>0); # {97} {98}
+ ```
- alpha\_nums
If the alpha\_nums option is false, then characters 0-9, a-z, and A-Z are
not
converted. For example, this code:
- $var = ords('a=b', alpha_nums=>0); # a{61}b
+ ```perl
+ $var = ords('a=b', alpha_nums=>0); # a{61}b
+ ```
## deords($string)
Takes the output from `ords()` and returns the string that original created
that
output.
- $var = deords('{72}{101}{110}{100}{114}{105}{120}'); # 'Hendrix'
+```
+$var = deords('{72}{101}{110}{100}{114}{105}{120}'); # 'Hendrix'
+```
## contains($string, $substring)
Checks if the string contains substring
- $var = contains("Hello world", "Hello"); # true
- $var = contains("Hello world", "llo wor"); # true
- $var = contains("Hello world", ""); # true
- $var = contains("Hello world", "QQQ"); # false
- $var = contains(undef, "QQQ"); # false
- $var = contains("Hello world", undef); # false
-
- # Also works with grep
- @arr = grep { contains("cat") } @input;
+```
+$var = contains("Hello world", "Hello"); # true
+$var = contains("Hello world", "llo wor"); # true
+$var = contains("Hello world", ""); # true
+$var = contains("Hello world", "QQQ"); # false
+$var = contains(undef, "QQQ"); # false
+$var = contains("Hello world", undef); # false
+
+# Also works with grep
+@arr = grep { contains("cat") } @input;
+```
## startswith($string, $substring)
Checks if the string starts with the characters in substring
- $var = startwith("Hello world", "Hello"); # true
- $var = startwith("Hello world", "H"); # true
- $var = startwith("Hello world", ""); # true
- $var = startwith("Hello world", "Q"); # false
- $var = startwith(undef, "Q"); # false
- $var = startwith("Hello world", undef); # false
-
- # Also works with grep
- @arr = grep { startswith("X") } @input;
+```
+$var = startswith("Hello world", "Hello"); # true
+$var = startswith("Hello world", "H"); # true
+$var = startswith("Hello world", ""); # true
+$var = startswith("Hello world", "Q"); # false
+$var = startswith(undef, "Q"); # false
+$var = startswith("Hello world", undef); # false
+
+# Also works with grep
+@arr = grep { startswith("X") } @input;
+```
## endswith($string, $substring)
Checks if the string ends with the characters in substring
- $var = endswith("Hello world", "world"); # true
- $var = endswith("Hello world", "d"); # true
- $var = endswith("Hello world", ""); # true
- $var = endswith("Hello world", "QQQ"); # false
- $var = endswith(undef, "QQQ"); # false
- $var = endswith("Hello world", undef); # false
-
- # Also works with grep
- @arr = grep { endswith("z") } @input;
+```
+$var = endswith("Hello world", "world"); # true
+$var = endswith("Hello world", "d"); # true
+$var = endswith("Hello world", ""); # true
+$var = endswith("Hello world", "QQQ"); # false
+$var = endswith(undef, "QQQ"); # false
+$var = endswith("Hello world", undef); # false
+
+# Also works with grep
+@arr = grep { endswith("z") } @input;
+```
## crunchlines($string)
@@ -223,7 +267,9 @@
is ignored, so that two newlines separated by whitespace is compacted down to a
single newline.
- $var = crunchlines("x\n\n\nx"); # "x\nx";
+```
+$var = crunchlines("x\n\n\nx"); # "x\nx";
+```
## sanitize($string, $separator = "\_")
@@ -233,10 +279,12 @@
**Note:** This will remove any trailing or leading '\_' on the string
- $var = sanitize("http://www.google.com/";) # http_www_google_com
- $var = sanitize("foo_bar()"; # foo_bar
- $var = sanitize("/path/to/file.txt"); # path_to_file_txt
- $var = sanitize("Big yellow bird!", "."); # Big.yellow.bird
+```
+$var = sanitize("http://www.google.com/";) # http_www_google_com
+$var = sanitize("foo_bar()"; # foo_bar
+$var = sanitize("/path/to/file.txt"); # path_to_file_txt
+$var = sanitize("Big yellow bird!", "."); # Big.yellow.bird
+```
## file\_get\_contents($string, $boolean)
@@ -244,8 +292,10 @@
cannot be read for any reason. Can also return the file as an array of
lines.
- $str = file_get_contents("/tmp/file.txt"); # Return a string
- @lines = file_get_contents("/tmp/file.txt", 1); # Return an array
+```
+$str = file_get_contents("/tmp/file.txt"); # Return a string
+@lines = file_get_contents("/tmp/file.txt", 1); # Return an array
+```
**Note:** If you opt to return an array, carriage returns and line feeds are
removed from the end of each line.
@@ -259,16 +309,18 @@
an integer value with the number of matches, or `undef` if the input
is invalid.
- my $cnt = substr_count("Perl is really rad", "r"); # 3
- my $num = substr_count("Perl is really rad", "Q"); # 0
+```perl
+my $cnt = substr_count("Perl is really rad", "r"); # 3
+my $num = substr_count("Perl is really rad", "Q"); # 0
+```
-# COPYRIGHT AND LICENSE
+## Copyright and License
Copyright (c) 2012-2016 by Miko O'Sullivan. All rights reserved. This program
is free software; you can redistribute it and/or modify it under the same terms
as Perl itself. This software comes with **NO WARRANTY** of any kind.
-# AUTHORS
+## Authors
Miko O'Sullivan <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/String-Util-1.35/lib/String/Util.pm
new/String-Util-1.36/lib/String/Util.pm
--- old/String-Util-1.35/lib/String/Util.pm 2024-08-26 19:05:32.000000000
+0200
+++ new/String-Util-1.36/lib/String/Util.pm 2026-07-06 22:50:42.000000000
+0200
@@ -8,7 +8,7 @@
# version
# https://blogs.perl.org/users/grinnz/2018/04/a-guide-to-versions-in-perl.html
#
https://github.com/andk/pause/blob/master/doc/operating-model.md#36-developer-releases
-our $VERSION = '1.35';
+our $VERSION = '1.36';
our $FGC_MODE = 'UTF-8';
#------------------------------------------------------------------------------
@@ -186,8 +186,8 @@
return undef;
}
- $s =~ s/^\s*//u;
- $s =~ s/\s*$//u;
+ $s =~ s/^\s+//u;
+ $s =~ s/\s+$//u;
return $s;
}
@@ -207,7 +207,7 @@
return undef;
}
- $s =~ s/^\s*//u;
+ $s =~ s/^\s+//u;
return $s;
}
@@ -219,7 +219,7 @@
return undef;
}
- $s =~ s/\s*$//u;
+ $s =~ s/\s+$//u;
return $s;
}
@@ -463,7 +463,7 @@
=head2 neqq($scalar1, $scalar2)
-The opposite of C<neqq>, returns true if the two values are *not* the same.
+The opposite of C<eqq>, returns true if the two values are B<not> the same.
Here are some examples and what they return.
$var = neqq('x', 'x'); # False
@@ -639,12 +639,12 @@
Checks if the string starts with the characters in substring
- $var = startwith("Hello world", "Hello"); # true
- $var = startwith("Hello world", "H"); # true
- $var = startwith("Hello world", ""); # true
- $var = startwith("Hello world", "Q"); # false
- $var = startwith(undef, "Q"); # false
- $var = startwith("Hello world", undef); # false
+ $var = startswith("Hello world", "Hello"); # true
+ $var = startswith("Hello world", "H"); # true
+ $var = startswith("Hello world", ""); # true
+ $var = startswith("Hello world", "Q"); # false
+ $var = startswith(undef, "Q"); # false
+ $var = startswith("Hello world", undef); # false
# Also works with grep
@arr = grep { startswith("X") } @input;
++++++ _scmsync.obsinfo ++++++
mtime: 1783423141
commit: 25d77305efd4b4e4e8f0df70bc45b513e0c5827e4b32c79f7b73be841868108b
url: https://src.opensuse.org/perl/perl-String-Util
revision: 25d77305efd4b4e4e8f0df70bc45b513e0c5827e4b32c79f7b73be841868108b
projectscmsync: https://src.opensuse.org/perl/_ObsPrj
++++++ build.specials.obscpio ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/.gitignore new/.gitignore
--- old/.gitignore 1970-01-01 01:00:00.000000000 +0100
+++ new/.gitignore 2026-07-07 13:19:01.000000000 +0200
@@ -0,0 +1 @@
+.osc
