Re: [Quilt-dev] Call for 0.42

[Andreas Gruenbacher]

Hi Jean,

On Thursday 21 July 2005 22:59, Jean Delvare wrote:
> I gave this a try and have something that seems to work, but it's not
> exactly elegant (especially the "no strict" which is needed). Does it
> look like something I can commit, or not?

I'm no expert in this, but maybe you like the following snippet slightly 
better.

#! /usr/bin/perl -w

use POSIX qw(setlocale LC_MESSAGES);
use strict;

BEGIN {
    if (eval { require Locale::gettext }) {
        import Locale::gettext;
    } else {
        eval '
            sub bindtextdomain($$) { }
            sub textdomain($) { }
            sub gettext($) { shift }
        '
    }
}

setlocale(LC_MESSAGES, "");
bindtextdomain("quilt", "/usr/share/locale");
textdomain("quilt");

sub _($) {
    return gettext(shift);
}

print _("Foo") . "\n";

The second eval needs to be passed a string or else Perl will complain.

-- Andreas.