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

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

Author: jawnsy-guest
Date: Tue Feb  2 21:41:37 2010
New Revision: 52090

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

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=52090&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/Changes (original)
+++ branches/upstream/libio-prompt-perl/current/Changes Tue Feb  2 21:41:37 2010
@@ -61,3 +61,9 @@
     - Removed spurious warning for undefined inputs
 
     - Changed versioning system
+
+
+0.997  Sat Jan 30 07:17:07 2010
+
+    - Removed another spurious warning for undefined inputs
+    

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=52090&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/META.yml (original)
+++ branches/upstream/libio-prompt-perl/current/META.yml Tue Feb  2 21:41:37 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IO-Prompt
-version:             0.996
+version:             0.997
 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=52090&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/README (original)
+++ branches/upstream/libio-prompt-perl/current/README Tue Feb  2 21:41:37 2010
@@ -1,4 +1,4 @@
-IO::Prompt version 0.996
+IO::Prompt version 0.997
 
 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=52090&op=diff
==============================================================================
--- branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm (original)
+++ branches/upstream/libio-prompt-perl/current/lib/IO/Prompt.pm Tue Feb  2 21:41:37 2010
@@ -1,9 +1,6 @@
-#       get_input
-#       hand_print
-
 package IO::Prompt;
 
-our $VERSION = '0.996';
+our $VERSION = '0.997';
 
 use strict;
 use Carp;
@@ -88,7 +85,7 @@
     my ($OUT);
     @data = map { $flags_alias{$_} || defined($_) ? $_ : "" } @data;
     for (my $i = 0 ; $i < @data ; $i++) {
-        local *_ = \($data[$i]);
+        local *_ = \$data[$i];
         if (ref eq 'HASH') {
             splice @data, $i + 1, 0, %$_;
         }
@@ -130,7 +127,7 @@
                                                        || !defined $data[$i+1];
                 s/^-($flag_with_arg)/-/;
                 $flags->{ -$flags_arg{$1} } = $data[$i+1];
-                undef $data[$i+1];
+                undef $data[$i++];
             }
             elsif (s/^-($flag_no_arg)/-/) {
                 $flags->{ -$flags_noarg{$1} } = 1;
@@ -637,7 +634,7 @@
 
 =head1 VERSION
 
-This document describes IO::Prompt version 0.996
+This document describes IO::Prompt version 0.997
 
 =head1 SYNOPSIS