beagle/debian-rfs/usr/share/perl5/Debconf/Gettext.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!


package Debconf::Gettext;
use strict;


BEGIN {
	eval 'use Locale::gettext';
	if ($@) {
		eval q{
			sub gettext {
				return shift;
			}
		};
	}
	else {
		textdomain('debconf');
	}
}

use base qw(Exporter);
our @EXPORT=qw(gettext);


1