PIG-4972: StreamingIO_1 fail on perl 5.22
git-svn-id: https://svn.apache.org/repos/asf/pig/trunk@1758463 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/CHANGES.txt b/CHANGES.txt
index fc5deb4..a8ab04d 100644
--- a/CHANGES.txt
+++ b/CHANGES.txt
@@ -40,6 +40,8 @@
BUG FIXES
+PIG-4972: StreamingIO_1 fail on perl 5.22 (daijy)
+
PIG-4933: TestDataBagAccess.testBagConstantFlatten1/TestLogicalPlanBuilder.testQuery90 broken after PIG-2315 (knoguchi)
PIG-4965: Refactor test/perf/pigmix/bin/runpigmix.pl to delete the output of single test case
diff --git a/test/e2e/pig/streaming/PigStreaming.pl b/test/e2e/pig/streaming/PigStreaming.pl
index 26a4a3b..2ce1fb9 100644
--- a/test/e2e/pig/streaming/PigStreaming.pl
+++ b/test/e2e/pig/streaming/PigStreaming.pl
@@ -73,7 +73,7 @@
{
chomp;
$data = $_;
- if (defined(%hash) && (exists $hash{$data}))
+ if (exists $hash{$data})
{
print $output_handle "$hash{$data}\n";
}
