/usr/lib/perl5/Wx/Locale.pm is in libwx-perl 1:0.9903-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | #############################################################################
## Name: lib/Wx/Locale.pm
## Purpose: Wx::Locale
## Author: Mattia Barbon
## Modified by:
## Created: 02/02/2001
## RCS-ID: $Id: Locale.pm 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright: (c) 2001-2002 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::Locale;
use strict;
*Wx::gettext = \&Wx::GetTranslation;
*Wx::gettext_noop = sub { $_[0] };
@Wx::Locale::T::ISA = qw(Exporter);
sub import {
my $temp = shift;
require Exporter;
package Wx::Locale::T;
no strict;
my( $from, $to, @export );
if( @_ == 1 && $_[0] eq ':default' ) {
@_ = ( 'gettext', 'gettext', 'gettext_noop', 'gettext_noop' )
}
while( @_ ) {
$from = shift;
$to = shift;
*{"Wx::Locale::T::$to"} = *{"Wx::$from"};
push @export, $to;
}
push @Wx::Locale::T::EXPORT_OK, @export;
Wx::Locale::T->export_to_level( 1, $temp, @export );
}
sub new {
shift;
# this should be conditionally defined, but it does no harm to leave
# like it is
Wx::_match( @_, $Wx::_n_n, 1, 1 ) && return Wx::Locale::newShort( @_ );
Wx::_match( @_, $Wx::_s_s_s_b_b, 1, 1 ) && return Wx::Locale::newLong( @_ );
Wx::_croak Wx::_ovl_error;
}
1;
# Local variables: #
# mode: cperl #
# End: #
|