diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-16 12:51:13 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:53 -0700 |
| commit | 9c11bb3cf05df9ae834853f3c81592f1d7df9deb (patch) | |
| tree | 1ab530b8f1d6a9987031d3d751ddbec7b73b8c44 | |
| parent | 8161897af8c261694089d24b57da7b96d41fd3ec (diff) | |
| download | perl-9c11bb3cf05df9ae834853f3c81592f1d7df9deb.tar.gz | |
locale.t: croak isn't loaded
so use die instead
| -rw-r--r-- | lib/locale.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/locale.t b/lib/locale.t index 445e8855e9..0c428f9cdc 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -986,7 +986,7 @@ setlocale(LC_ALL, "C"); ? lc($char) : ($function eq "lcfirst") ? lcfirst($char) - : croak("Unexpected function \"$function\""); + : die("Unexpected function \"$function\""); ok($changed eq $should_be, "$function(\"$char\") in C locale should be \"$should_be\", got \"$changed\""); # Tainting shouldn't happen for empty strings, or those characters |