summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-04-15 18:08:04 +0000
committerNicholas Clark <nick@ccl4.org>2006-04-15 18:08:04 +0000
commit8498a5184cf05e744bf72b6e3f846f8deac7a425 (patch)
tree50696bf7ab9f68bf523f220429ae7ff1f619a491 /t
parent937b367d393d2f47eca488c9413d9e139fc7d431 (diff)
downloadperl-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.t4
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) {
$_ = '';