From cb237a6e9f10704ec6ed292d73da6f2d007d7096428c43ba03d783bc61e53873 Mon Sep 17 00:00:00 2001 From: Dirk Stoecker Date: Tue, 14 Apr 2015 21:44:41 +0000 Subject: [PATCH] Accepting request 296384 from devel:languages:perl:autoupdate automatic update OBS-URL: https://build.opensuse.org/request/show/296384 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-String-Random?expand=0&rev=2 --- String-Random-0.22.tar.gz | 3 --- String-Random-0.28.tar.gz | 3 +++ perl-String-Random.changes | 6 ++++++ perl-String-Random.spec | 36 +++++++++++++++++------------------- 4 files changed, 26 insertions(+), 22 deletions(-) delete mode 100644 String-Random-0.22.tar.gz create mode 100644 String-Random-0.28.tar.gz diff --git a/String-Random-0.22.tar.gz b/String-Random-0.22.tar.gz deleted file mode 100644 index f881942..0000000 --- a/String-Random-0.22.tar.gz +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:0552acbba611eac76bb2847385a713fe28673a4d4d7ffbed60a64665d38a9969 -size 7629 diff --git a/String-Random-0.28.tar.gz b/String-Random-0.28.tar.gz new file mode 100644 index 0000000..4b727e5 --- /dev/null +++ b/String-Random-0.28.tar.gz @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:4493fb59c280d46c3f854b209e97aead8323e0b054109e1390e02f769afb256f +size 21062 diff --git a/perl-String-Random.changes b/perl-String-Random.changes index 506caf1..bc1e6fa 100644 --- a/perl-String-Random.changes +++ b/perl-String-Random.changes @@ -1,3 +1,9 @@ +------------------------------------------------------------------- +Tue Apr 14 19:33:20 UTC 2015 - coolo@suse.com + +- updated to 0.28 + see /usr/share/doc/packages/perl-String-Random/Changes + ------------------------------------------------------------------- Thu Apr 21 10:40:38 UTC 2011 - coolo@opensuse.org diff --git a/perl-String-Random.spec b/perl-String-Random.spec index 3a7281c..59b2865 100644 --- a/perl-String-Random.spec +++ b/perl-String-Random.spec @@ -1,7 +1,7 @@ # -# spec file for package perl-String-Random (Version 0.22) +# spec file for package perl-String-Random # -# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 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 @@ -15,23 +15,21 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # + Name: perl-String-Random -Version: 0.22 -Release: 1 -License: GPL+ or Artistic +Version: 0.28 +Release: 0 %define cpan_name String-Random Summary: Perl module to generate random strings based on a pattern -Url: http://search.cpan.org/dist/String-Random/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source: http://www.cpan.org/authors/id/S/ST/STEVE/%{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/String-Random/ +Source: http://www.cpan.org/authors/id/S/SH/SHLOMIF/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl -BuildRequires: perl(Module::Build) BuildRequires: perl-macros -BuildRequires: perl(Module::Build) -BuildRequires: perl(Test::More) -Requires: perl(Test::More) +BuildRequires: perl(Module::Build) >= 0.36 %{perl_requires} %description @@ -41,19 +39,22 @@ As an example, let's say you are writing a script that needs to generate a random password for a user. The relevant code might look something like this: - use String::Random; - $pass = new String::Random; - print "Your password is ", $pass->randpattern("CCcc!ccn"), "\n"; + use String::Random; + my $pass = String::Random->new; + print "Your password is ", $pass->randpattern("CCcc!ccn"), "\n"; This would output something like this: Your password is UDwp$tj5 +*NOTE!!!*: currently, String::Random uses Perl's built-in predictable +random number generator so the passwords generated by it are insecure. + If you are more comfortable dealing with regular expressions, the following code would have a similar result: use String::Random; - $pass = new String::Random; + my $pass = String::Random->new; print "Your password is ", $pass->randregex('[A-Z]{2}[a-z]{2}.[a-z]{2}\d'), "\n"; @@ -71,11 +72,8 @@ code would have a similar result: ./Build install destdir=%{buildroot} create_packlist=0 %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes README TODO +%doc Changes LICENSE README TODO %changelog