r56862 - in /branches/upstream/libio-prompt-perl/current: Changes META.yml README lib/IO/Prompt.pm

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

Author: carnil-guest
Date: Sun Apr 25 15:51:57 2010
New Revision: 56862

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56862
Log:
[svn-upgrade] Integrating new upstream version, libio-prompt-perl (0.997001)

Modified:
    branches/upstream/libio-prompt-perl/current/Changes
    branches/upstream/libio-prompt-perl/current/META.yml
    branches/upstream/libio-prompt-perl/current/README
    branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm

Modified: branches/upstream/libio-prompt-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-prompt-perl/current/Changes?rev=56862&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/Changes (original)
+++ branches/upstream/libio-prompt-perl/current/Changes Sun Apr 25 15:51:57 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: branches/upstream/libio-prompt-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-prompt-perl/current/META.yml?rev=56862&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/META.yml (original)
+++ branches/upstream/libio-prompt-perl/current/META.yml Sun Apr 25 15:51:57 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: branches/upstream/libio-prompt-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-prompt-perl/current/README?rev=56862&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/README (original)
+++ branches/upstream/libio-prompt-perl/current/README Sun Apr 25 15:51:57 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: branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm?rev=56862&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm (original)
+++ branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm Sun Apr 25 15:51:57 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