This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lex_assign.t: Actually test chomp
authorFather Chrysostomos <sprout@cpan.org>
Mon, 29 Dec 2014 14:24:12 +0000 (06:24 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 30 Dec 2014 06:03:29 +0000 (22:03 -0800)
t/op/lex_assign.t

index a922b5f..a8a99e9 100644 (file)
@@ -197,7 +197,7 @@ ref $cstr                   # ref nonref
 (@z = (1 .. 3))                        # aassign
 (chop (@x=@chopar))            # chop
 chop $chopit                   # schop
-(chop (@x=@chopar))            # chomp
+(chomp (@x=@chopar))           # chomp
 chomp $chopit                  # schomp
 pos $posstr                    # pos
 pos $chopit                    # pos returns undef