OLD | NEW |
(Empty) | |
| 1 # Copied from /usr/share/perl5/Debconf/Gettext.pm |
| 2 # |
| 3 # Redistribution and use in source and binary forms, with or without |
| 4 # modification, are permitted provided that the following conditions |
| 5 # are met: |
| 6 # 1. Redistributions of source code must retain the above copyright |
| 7 # notice, this list of conditions and the following disclaimer. |
| 8 # 2. Redistributions in binary form must reproduce the above copyright |
| 9 # notice, this list of conditions and the following disclaimer in the |
| 10 # documentation and/or other materials provided with the distribution. |
| 11 # |
| 12 # THIS SOFTWARE IS PROVIDED BY AUTHORS AND CONTRIBUTORS ``AS IS'' AND |
| 13 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
| 14 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| 15 # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE |
| 16 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| 17 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
| 18 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
| 19 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
| 20 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
| 21 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
| 22 # SUCH DAMAGE. |
| 23 |
| 24 package Dpkg::Gettext; |
| 25 |
| 26 use strict; |
| 27 use warnings; |
| 28 |
| 29 our $VERSION = '1.00'; |
| 30 |
| 31 BEGIN { |
| 32 eval 'use Locale::gettext'; |
| 33 if ($@) { |
| 34 eval q{ |
| 35 sub _g { |
| 36 return shift; |
| 37 } |
| 38 sub textdomain { |
| 39 } |
| 40 sub ngettext { |
| 41 if ($_[2] == 1) { |
| 42 return $_[0]; |
| 43 } else { |
| 44 return $_[1]; |
| 45 } |
| 46 } |
| 47 sub P_ { |
| 48 return ngettext(@_); |
| 49 } |
| 50 }; |
| 51 } else { |
| 52 eval q{ |
| 53 sub _g { |
| 54 return gettext(shift); |
| 55 } |
| 56 sub P_ { |
| 57 return ngettext(@_); |
| 58 } |
| 59 }; |
| 60 } |
| 61 } |
| 62 |
| 63 use Exporter qw(import); |
| 64 our @EXPORT=qw(_g P_ textdomain ngettext); |
| 65 |
| 66 1; |
OLD | NEW |