From 8142321a5225aadfe6bf236b8a914d0dc9147f67 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 9 Nov 2006 17:47:29 +0000
Subject: [PATCH] splitting on an empty string returns undef, not empty string

---
 t/Text.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Text.t b/t/Text.t
index 58e0bf0a3..e1c116c86 100644
--- a/t/Text.t
+++ b/t/Text.t
@@ -21,7 +21,7 @@ my @tests =
      ['end null', ['a', 'b', ''], 'a,b,'],
      ['start null', ['', 'b', 'c'], ',b,c'],
      ['all null', ['', '', ''], ',,'],
-     ['single null', [''], ''],
+     ['single null', [], ''],
      ['escape commas', ['w,x', 'y,z'], '"w,x","y,z"'],
      ['escape double quotes', ['abc"def', 'ghi-jkl', 'mnop'], '"abc""def",ghi-jkl,mnop']);
 plan(tests => scalar(@tests) * 2);