scripts/Dpkg/Gettext.pm

   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 BEGIN {
  30         eval 'use Locale::gettext';
  31         if ($@) {
  32                 eval q{
  33                         sub _g {
  34                                 return shift;
  35                         }
  36                         sub textdomain {
  37                         }
  38                         sub ngettext {
  39                                 if ($_[2] == 1) {
  40                                         return $_[0];
  41                                 } else {
  42                                         return $_[1];
  43                                 }
  44                         }
  45                 };
  46         } else {
  47                 eval q{
  48                         sub _g {
  49                                 return gettext(shift);
  50                         }
  51                 };
  52         }
  53 }
  54
  55 use base qw(Exporter);
  56 our @EXPORT=qw(_g textdomain ngettext);
  57
  58 1;