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 |