r56864 - in /trunk/libio-prompt-perl: Changes META.yml README debian/changelog debian/control lib/IO/Prompt.pm

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sun Apr 25 15:55:22 2010
New Revision: 56864

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56864
Log:
* New upstream release
* Add myself to Uploaders

Modified:
    trunk/libio-prompt-perl/Changes
    trunk/libio-prompt-perl/META.yml
    trunk/libio-prompt-perl/README
    trunk/libio-prompt-perl/debian/changelog
    trunk/libio-prompt-perl/debian/control
    trunk/libio-prompt-perl/lib/IO/Prompt.pm

Modified: trunk/libio-prompt-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/Changes?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/Changes (original)
+++ trunk/libio-prompt-perl/Changes Sun Apr 25 15:55:22 2010
@@ -67,3 +67,10 @@
 
     - Removed another spurious warning for undefined inputs
     
+
+
+0.997001  Sat Apr 24 12:00:19 2010
+
+    - More warning cleanup and also made backspaces work right at the
+      start of a line (thanks Ingmar)
+

Modified: trunk/libio-prompt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/META.yml?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/META.yml (original)
+++ trunk/libio-prompt-perl/META.yml Sun Apr 25 15:55:22 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IO-Prompt
-version:             0.997
+version:             0.997001
 abstract:            Interactively prompt for user input
 license:             ~
 author:              

Modified: trunk/libio-prompt-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/README?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/README (original)
+++ trunk/libio-prompt-perl/README Sun Apr 25 15:55:22 2010
@@ -1,4 +1,4 @@
-IO::Prompt version 0.997
+IO::Prompt version 0.997001
 
 By default, this module exports a single function: prompt().  It prompts the
 user to enter some input, and returns an object that represents the user input.

Modified: trunk/libio-prompt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/debian/changelog?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/debian/changelog (original)
+++ trunk/libio-prompt-perl/debian/changelog Sun Apr 25 15:55:22 2010
@@ -1,3 +1,10 @@
+libio-prompt-perl (0.997001-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Add myself to Uploaders
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Sun, 25 Apr 2010 17:54:59 +0200
+
 libio-prompt-perl (0.997-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/libio-prompt-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/debian/control?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/debian/control (original)
+++ trunk/libio-prompt-perl/debian/control Sun Apr 25 15:55:22 2010
@@ -6,7 +6,8 @@
  libterm-readkey-perl, libwant-perl, libtest-pod-coverage-perl, libio-pty-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
- Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at iki.fi>
+ Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at iki.fi>,
+ Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
 Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/IO-Prompt/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-prompt-perl/

Modified: trunk/libio-prompt-perl/lib/IO/Prompt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/lib/IO/Prompt.pm?rev=56864&op=diff
==============================================================================
--- trunk/libio-prompt-perl/lib/IO/Prompt.pm (original)
+++ trunk/libio-prompt-perl/lib/IO/Prompt.pm Sun Apr 25 15:55:22 2010
@@ -1,6 +1,6 @@
 package IO::Prompt;
 
-our $VERSION = '0.997';
+our $VERSION = '0.997001';
 
 use strict;
 use Carp;
@@ -414,9 +414,11 @@
             ReadMode 'restore', $IN;
             exit;
         }
-        elsif ($next eq $cntl{ERASE} and length $input) {
-            substr($input, -1) = "";
-            print {$OUT} "\b \b";
+        elsif ($next eq $cntl{ERASE}) {
+            if (defined $input && length $input) {
+                substr($input, -1) = "";
+                print {$OUT} "\b \b";
+            }
             next;
         }
         elsif ($next eq $cntl{EOF}) {
@@ -462,7 +464,7 @@
             }
             else {
                 ReadMode 'restore', $IN;
-                print {$OUT} $newlines;
+                print {$OUT} $newlines if defined $newlines;
                 return $onechar ? substr($input, 0, 1) : $input;
             }
         }
@@ -634,7 +636,7 @@
 
 =head1 VERSION
 
-This document describes IO::Prompt version 0.997
+This document describes IO::Prompt version 0.997001
 
 =head1 SYNOPSIS