home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / dpkg / dpkg-gettext.pl next >
Encoding:
Perl Script  |  2006-08-20  |  476 b   |  38 lines

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use warnings;
  4. # Copied from /usr/share/perl5/Debconf/Gettext.pm
  5.  
  6. use strict;
  7.  
  8. BEGIN {
  9.     eval 'use Locale::gettext';
  10.     if ($@) {
  11.         eval q{
  12.             sub _g {
  13.                 return shift;
  14.             }
  15.             sub textdomain {
  16.             }
  17.             sub ngettext {
  18.                 if ($_[2] == 1) {
  19.                     return $_[0];
  20.                 } else {
  21.                     return $_[1];
  22.                 }
  23.             }
  24.         };
  25.     } else {
  26.         eval q{
  27.             sub _g {
  28.                 return gettext(shift);
  29.             }
  30.         };
  31.     }
  32. }
  33.  
  34. use base qw(Exporter);
  35. our @EXPORT=qw(_g textdomain ngettext);
  36.  
  37. 1;
  38.