This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use system default locale only if there is one.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 May 2014 14:40:02 +0000 (10:40 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 May 2014 14:48:08 +0000 (10:48 -0400)
commit6bce99ee04477bef3c6a1fb1711a54957bf33f13
treeb76c8f8c2a93b4df84eb31c01e24a7d73a878032
parentb8c610ededd36d59dcdd6f513b727a3430c1c7f4
Use system default locale only if there is one.

(Currently, only Win32 has one.)

[perl #121865]

Fix for Coverity perl5 CID 28949:
Logically dead code (DEADCODE)
dead_error_line: Execution cannot reach this statement
name = system_default_locale;
locale.c