This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Term::UI to 0.16
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 Oct 2007 09:06:20 +0000 (09:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 Oct 2007 09:06:20 +0000 (09:06 +0000)
p4raw-id: //depot/perl@32021

lib/Term/UI.pm
lib/Term/UI/History.pm
lib/Term/UI/t/02_ui.t

index 5c40b78..c7cd4cd 100644 (file)
@@ -11,7 +11,7 @@ use strict;
 BEGIN {
     use vars        qw[$VERSION $AUTOREPLY $VERBOSE $INVALID];
     $VERBOSE    =   1;
-    $VERSION    =   '0.14_01';
+    $VERSION    =   '0.16';
     $INVALID    =   loc('Invalid selection, please try again: ');
 }
 
@@ -404,9 +404,9 @@ sub parse_options {
     my $return = {};
 
     ### there's probably a more elegant way to do this... ###
-    while ( $input =~ s/--?([-\w]+=("|').+?\2)(?:\Z|\s+)//  or
-            $input =~ s/--?([-\w]+=\S+)(?:\Z|\s+)//         or
-            $input =~ s/--?([-\w]+)(?:\Z|\s+)//
+    while ( $input =~ s/(?:\s+)--?([-\w]+=("|').+?\2)(?=\Z|\s+)//  or
+            $input =~ s/(?:\s+)--?([-\w]+=\S+)(?=\Z|\s+)//         or
+            $input =~ s/(?:\s+)--?([-\w]+)(?=\Z|\s+)//
     ) {
         my $match = $1;
 
@@ -604,17 +604,17 @@ will warn about this and return C<undef>.
 
 C<Params::Check>, C<Term::ReadLine>, C<Term::UI::History>
 
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-term-ui@rt.cpan.org<gt>.
+
 =head1 AUTHOR
 
-This module by
-Jos Boumans E<lt>kane@cpan.orgE<gt>.
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
 
 =head1 COPYRIGHT
 
-This module is
-copyright (c) 2002 - 2005 Jos Boumans E<lt>kane@cpan.orgE<gt>.
-All rights reserved.
+This library is free software; you may redistribute and/or modify it 
+under the same terms as Perl itself.
 
-This library is free software;
-you may redistribute and/or modify it under the same
-terms as Perl itself.
+=cut
index 9ac09aa..1d77c01 100644 (file)
@@ -8,7 +8,7 @@ use base 'Log::Message::Simple';
 
 =head1 NAME
 
-Log::Message::Simple
+Term::UI::History
 
 =head1 SYNOPSIS
 
index dbefdce..874ffc8 100644 (file)
@@ -106,9 +106,9 @@ my $tmpl = {
 #### test parse_options   
 {
     my $str =   q[command --no-foo --baz --bar=0 --quux=bleh ] .
-                q[--option="some'thing" -one-dash -single=blah' foo];
+                q[--option="some'thing" -one-dash -single=blah' foo bar-zot];
 
-    my $munged = 'command foo';
+    my $munged = 'command foo bar-zot';
     my $expected = {
             foo         => 0,
             baz         => 1,
@@ -121,6 +121,6 @@ my $tmpl = {
 
     my ($href,$rest) = $term->parse_options( $str );
 
-    is_deeply( $href, $expected, q[Parsing options] );
-    is($rest,$munged, q[Remaining unparsed string] );
+    is_deeply($href, $expected, qq[Parsing options] );
+    is($rest, $munged,          qq[Remaining unparsed string '$munged'] );
 }