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

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

Author: jawnsy-guest
Date: Tue Feb  2 21:43:23 2010
New Revision: 52092

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52092
Log:
integrate new upstream version

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/lib/IO/Prompt.pm

Modified: trunk/libio-prompt-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/Changes?rev=52092&op=diff
==============================================================================
--- trunk/libio-prompt-perl/Changes (original)
+++ trunk/libio-prompt-perl/Changes Tue Feb  2 21:43:23 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: trunk/libio-prompt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/META.yml?rev=52092&op=diff
==============================================================================
--- trunk/libio-prompt-perl/META.yml (original)
+++ trunk/libio-prompt-perl/META.yml Tue Feb  2 21:43:23 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: trunk/libio-prompt-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/README?rev=52092&op=diff
==============================================================================
--- trunk/libio-prompt-perl/README (original)
+++ trunk/libio-prompt-perl/README Tue Feb  2 21:43:23 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: trunk/libio-prompt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-prompt-perl/debian/changelog?rev=52092&op=diff
==============================================================================
--- trunk/libio-prompt-perl/debian/changelog (original)
+++ trunk/libio-prompt-perl/debian/changelog Tue Feb  2 21:43:23 2010
@@ -1,4 +1,4 @@
-libio-prompt-perl (0.996-1) UNRELEASED; urgency=low
+libio-prompt-perl (0.997-1) UNRELEASED; urgency=low
 
   NOTE: this is currently FTBFS because Ryan's system
   doesn't have ttys. Not sure if I'm missing a dep...
@@ -30,7 +30,7 @@
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sun, 10 Jan 2010 20:13:19 -0500
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 02 Feb 2010 16:57:15 -0500
 
 libio-prompt-perl (0.99.4-3) unstable; urgency=medium
 

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=52092&op=diff
==============================================================================
--- trunk/libio-prompt-perl/lib/IO/Prompt.pm (original)
+++ trunk/libio-prompt-perl/lib/IO/Prompt.pm Tue Feb  2 21:43:23 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