diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-04-15 18:08:04 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-04-15 18:08:04 +0000 |
commit | 8498a5184cf05e744bf72b6e3f846f8deac7a425 (patch) | |
tree | 50696bf7ab9f68bf523f220429ae7ff1f619a491 /t | |
parent | 937b367d393d2f47eca488c9413d9e139fc7d431 (diff) | |
download | perl-8498a5184cf05e744bf72b6e3f846f8deac7a425.tar.gz |
$foo .= $bar doesn't warn if $foo is undefined, so simplify code.
p4raw-id: //depot/perl@27817
Diffstat (limited to 't')
-rw-r--r-- | t/op/incfilter.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/incfilter.t b/t/op/incfilter.t index 650aa15844..08d1eaccde 100644 --- a/t/op/incfilter.t +++ b/t/op/incfilter.t @@ -97,7 +97,7 @@ do [$fh, sub {tr/A-Za-z/N-ZA-Mn-za-m/; return;}] or die; my $count = 32; sub prepend_rot13_filter { filter_add(sub { - my $previous = defined $_ ? $_ : ''; + my $previous = $_; # Filters should append to any existing data in $_ # But (logically) shouldn't filter it twice. my $test = "fzrt!"; @@ -123,7 +123,7 @@ do [$fh, sub {tr/A-Za-z/N-ZA-Mn-za-m/; return;}] or die; my $amount = 1; sub prepend_block_counting_filter { filter_add(sub { - my $output = defined $_ ? $_ : ''; + my $output = $_; my $count = 256; while (--$count) { $_ = ''; |