Hello community,

here is the log from the commit of package perl-Sysadm-Install for 
openSUSE:Factory checked in at 2016-11-18 22:02:35
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Sysadm-Install (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Sysadm-Install.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Sysadm-Install"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Sysadm-Install/perl-Sysadm-Install.changes  
2016-06-05 14:20:47.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Sysadm-Install.new/perl-Sysadm-Install.changes 
    2016-11-18 22:02:36.000000000 +0100
@@ -1,0 +2,11 @@
+Thu Nov 17 07:13:14 UTC 2016 - co...@suse.com
+
+- updated to 0.48
+   see /usr/share/doc/packages/perl-Sysadm-Install/Changes
+
+  0.48  (2016/11/15)
+      (ms) Applied typo fix submitted by Salvatore Bonaccorso in
+           [rt.cpan.org #114826]
+      (ms) Reopening stderr now after password_read prompt to tty closed it.
+
+-------------------------------------------------------------------

Old:
----
  Sysadm-Install-0.47.tar.gz

New:
----
  Sysadm-Install-0.48.tar.gz

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

Other differences:
------------------
++++++ perl-Sysadm-Install.spec ++++++
--- /var/tmp/diff_new_pack.dxAjYg/_old  2016-11-18 22:02:37.000000000 +0100
+++ /var/tmp/diff_new_pack.dxAjYg/_new  2016-11-18 22:02:37.000000000 +0100
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Sysadm-Install
-Version:        0.47
+Version:        0.48
 Release:        0
 %define cpan_name Sysadm-Install
 Summary:        Typical installation tasks for system administrators

++++++ Sysadm-Install-0.47.tar.gz -> Sysadm-Install-0.48.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Sysadm-Install-0.47/Changes 
new/Sysadm-Install-0.48/Changes
--- old/Sysadm-Install-0.47/Changes     2016-05-30 09:08:30.000000000 +0200
+++ new/Sysadm-Install-0.48/Changes     2016-11-16 07:32:21.000000000 +0100
@@ -2,10 +2,16 @@
 Revision history for Sysadm::Install
 ########################################
 
+0.48  (2016/11/15)
+    (ms) Applied typo fix submitted by Salvatore Bonaccorso in
+         [rt.cpan.org #114826]
+    (ms) Reopening stderr now after password_read prompt to tty closed it.
+
 0.47  (2016/05/29)
-    (ms) password_read() now writes the prompt to STDERR (instead of STDOUT), 
and
-         optionally to /dev/tty if specified. This allows for redirecting 
STDOUT 
-         (and even STDERR) to a file without losing the password prompt.
+    (ms) password_read() now writes the prompt to STDERR (instead of STDOUT),
+         and optionally to /dev/tty if specified. This allows for 
+         redirecting STDOUT (and even STDERR) to a file without losing 
+         the password prompt.
 
 0.46  (2015/06/23)
     (ms) ask() and pick() now support getting the user's response on the 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Sysadm-Install-0.47/META.json 
new/Sysadm-Install-0.48/META.json
--- old/Sysadm-Install-0.47/META.json   2016-05-30 09:27:18.000000000 +0200
+++ new/Sysadm-Install-0.48/META.json   2016-11-16 07:33:35.000000000 +0100
@@ -4,7 +4,7 @@
       "Mike Schilli <m...@perlmeister.com>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter 
version 2.133380",
+   "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter 
version 2.142690",
    "license" : [
       "unknown"
    ],
@@ -50,5 +50,5 @@
          "url" : "http://github.com/mschilli/sysadm-install-perl";
       }
    },
-   "version" : "0.47"
+   "version" : "0.48"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Sysadm-Install-0.47/META.yml 
new/Sysadm-Install-0.48/META.yml
--- old/Sysadm-Install-0.47/META.yml    2016-05-30 09:27:17.000000000 +0200
+++ new/Sysadm-Install-0.48/META.yml    2016-11-16 07:33:35.000000000 +0100
@@ -3,30 +3,30 @@
 author:
   - 'Mike Schilli <m...@perlmeister.com>'
 build_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 configure_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 
2.133380'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 
2.142690'
 license: unknown
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
+  version: '1.4'
 name: Sysadm-Install
 no_index:
   directory:
     - t
     - inc
 requires:
-  Cwd: 0
-  File::Basename: 0
-  File::Copy: 0
-  File::Path: 0
-  File::Temp: 0.16
-  File::Which: 1.09
-  LWP::Simple: 0
-  Log::Log4perl: 1.28
-  Term::ReadKey: 0
+  Cwd: '0'
+  File::Basename: '0'
+  File::Copy: '0'
+  File::Path: '0'
+  File::Temp: '0.16'
+  File::Which: '1.09'
+  LWP::Simple: '0'
+  Log::Log4perl: '1.28'
+  Term::ReadKey: '0'
 resources:
   repository: http://github.com/mschilli/sysadm-install-perl
-version: 0.47
+version: '0.48'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Sysadm-Install-0.47/README 
new/Sysadm-Install-0.48/README
--- old/Sysadm-Install-0.47/README      2016-05-30 09:27:07.000000000 +0200
+++ new/Sysadm-Install-0.48/README      2016-11-16 07:33:35.000000000 +0100
@@ -1,5 +1,5 @@
 ######################################################################
-    Sysadm::Install 0.47
+    Sysadm::Install 0.48
 ######################################################################
 
 NAME
@@ -106,14 +106,14 @@
         ("apple", "pear", "pineapple" will be returned by "pick()".
 
         If the optional $opts hash has "{ tty => 1 }" set, then the user
-        reponse will be expected from the console, not STDIN.
+        response will be expected from the console, not STDIN.
 
     "ask($prompt, $default, $opts)"
         Ask the user to either hit *Enter* and select the displayed default
         or to type in another string.
 
         If the optional $opts hash has "{ tty => 1 }" set, then the user
-        reponse will be expected from the console, not STDIN.
+        response will be expected from the console, not STDIN.
 
     "mkd($dir)"
         Create a directory of arbitrary depth, just like
@@ -188,10 +188,11 @@
 
             my $unicode_string = slurp( $file, {utf8 => 1} );
 
-    "blurt($data, $file, $append)"
+    "blurt($data, $file, $options)"
         Opens a new file, prints the data in $data to it and closes the
-        file. If $append is set to a true value, data will be appended to
-        the file. Default is false, existing files will be overwritten.
+        file. If "$options->{append}" is set to a true value, data will be
+        appended to the file. Default is false, existing files will be
+        overwritten.
 
         If the string is a Unicode string, use the "utf8" option:
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Sysadm-Install-0.47/lib/Sysadm/Install.pm 
new/Sysadm-Install-0.48/lib/Sysadm/Install.pm
--- old/Sysadm-Install-0.47/lib/Sysadm/Install.pm       2016-05-30 
09:18:44.000000000 +0200
+++ new/Sysadm-Install-0.48/lib/Sysadm/Install.pm       2016-11-16 
07:31:58.000000000 +0100
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.47';
+our $VERSION = '0.48';
 
 use File::Copy;
 use File::Path;
@@ -390,7 +390,7 @@
 C<pick()>.
 
 If the optional C<$opts> hash has C<{ tty =E<gt> 1 }> set, then 
-the user reponse will be expected from the console, not STDIN.
+the user response will be expected from the console, not STDIN.
 
 =cut
 
@@ -440,7 +440,7 @@
 or to type in another string.
 
 If the optional C<$opts> hash has C<{ tty =E<gt> 1 }> set, then 
-the user reponse will be expected from the console, not STDIN.
+the user response will be expected from the console, not STDIN.
 
 =cut
 
@@ -471,8 +471,11 @@
 
     $opts = {} if !defined $opts;
 
-    my $fh = *STDERR;
+    my $fh     = *STDERR;
+    my $old_stderr;
     if( $opts->{ tty } ) {
+        open $old_stderr, ">&", \*STDERR or
+            die "Can't dup STDERR: $!";
         open $fh, ">>", '/dev/tty' or 
             die "Cannot open /dev/tty ($!)";
     }
@@ -482,6 +485,8 @@
 
     if( $opts->{ tty } ) {
         close $fh;
+        open STDERR, ">&", $old_stderr or 
+            die "Can't reset STDERR";
     }
 
     return 1;
@@ -892,10 +897,10 @@
 
 =pod
 
-=item C<blurt($data, $file, $append)>
+=item C<blurt($data, $file, $options)>
 
-Opens a new file, prints the data in C<$data> to it and closes the file.
-If C<$append> is set to a true value, data will be appended to the
+Opens a new file, prints the data in C<$data> to it and closes the file.  If
+C<$options-E<gt>{append}> is set to a true value, data will be appended to the
 file. Default is false, existing files will be overwritten.
 
 If the string is a Unicode string, use the C<utf8> option:


Reply via email to