r3721 - in /packages/liblingua-es-numeros-perl/trunk: Numeros.pm
debian/rules
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Wed Sep 13 19:00:54 UTC 2006
Author: gwolf
Date: Wed Sep 13 19:00:53 2006
New Revision: 3721
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3721
Log:
Load liblingua-es-numeros-perl-0.01 into
packages/liblingua-es-numeros-perl/trunk.
Modified:
packages/liblingua-es-numeros-perl/trunk/Numeros.pm
packages/liblingua-es-numeros-perl/trunk/debian/rules (props changed)
Modified: packages/liblingua-es-numeros-perl/trunk/Numeros.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/liblingua-es-numeros-perl/trunk/Numeros.pm?rev=3721&op=diff
==============================================================================
--- packages/liblingua-es-numeros-perl/trunk/Numeros.pm (original)
+++ packages/liblingua-es-numeros-perl/trunk/Numeros.pm Wed Sep 13 19:00:53 2006
@@ -1,6 +1,6 @@
=head1 NAME
-Lingua::ES::Numeros - Convierte números a texto en Español (Castellano)
+Lingua::ES::Numeros - Convierte números a texto en Español (Castellano)
=head1 SYNOPSIS
@@ -18,18 +18,18 @@
=head1 DESCRIPTION
-Lingua::ES::Numeros convierte números de precisión arbitraria en su
-representación textual en castellano. Tiene soporte para la
-representación de cardinales, ordinales y reales. Como los números
-manejados tienen mayor rango que el manejo númeríco nativo de Perl,
-estos se manejan como cadenas de caracteres, permitiendo así el
-crecimiento ilimitado del sistema de conversión.
+Lingua::ES::Numeros convierte números de precisión arbitraria en su
+representación textual en castellano. Tiene soporte para la
+representación de cardinales, ordinales y reales. Como los números
+manejados tienen mayor rango que el manejo númerÃco nativo de Perl,
+estos se manejan como cadenas de caracteres, permitiendo asà el
+crecimiento ilimitado del sistema de conversión.
=cut
#######################################################################
# Jose Luis Rey Barreira (C) 2001
-# Código bajo licencia GPL ver http://www.gnu.org
+# Código bajo licencia GPL ver http://www.gnu.org
#######################################################################
package Lingua::ES::Numeros;
@@ -62,7 +62,7 @@
#####################################################################
#
-# Soporte para números CARDINALES
+# Soporte para números CARDINALES
#
####################################################################
@@ -70,9 +70,9 @@
cero un dos tres cuatro
cinco seis siete ocho nueve
diez once doce trece catorce
- quince dieciséis diecisiete dieciocho diecinueve
- veinte veintiun veintidós veintitrés veinticuatro
- veinticinco veintiséis veintisiete veintiocho veintinueve
+ quince dieciséis diecisiete dieciocho diecinueve
+ veinte veintiun veintidós veintitrés veinticuatro
+ veinticinco veintiséis veintisiete veintiocho veintinueve
};
my @decenas = qw {
@@ -146,12 +146,12 @@
push @grupo, $1;
}
push @grupo, $n;
- croak 'Número fuera de rango' if @grupo > @Llones;
+ croak 'Número fuera de rango' if @grupo > @Llones;
for (my $i=$#grupo; $i>0; $i--) {
my $g = $grupo[$i];
next if $g == 0;
$buf .= ($buf ? ' ' : '') . hasta1M($g, $un_mil) . ' ' .
- $Llones[$i] . ($g==1 ? 'illón' : 'illones');
+ $Llones[$i] . ($g==1 ? 'illón' : 'illones');
}
if ($grupo[0] > 0) {
$buf .= ' ' if $buf;
@@ -164,33 +164,33 @@
my ($n, $exp, $un_mil, $sex) = @_;
$n =~ s/0*$//; # eliminar 0 a la derecha
- my $ll = -$exp + length $n; # total de dígitos en $n
- my $mm = $ll - 6*@Llones; # digitos fuera de precisión
- croak 'Número fuera de precisión' if length($n) <= $mm;
- $n = substr($n, 0, length($n)-$mm); # eliminar dígitos sobrantes
+ my $ll = -$exp + length $n; # total de dÃgitos en $n
+ my $mm = $ll - 6*@Llones; # digitos fuera de precisión
+ croak 'Número fuera de precisión' if length($n) <= $mm;
+ $n = substr($n, 0, length($n)-$mm); # eliminar dÃgitos sobrantes
return '' unless $n =~ /[1-9]/;
- $ll -= $mm if $mm > 0; # tomar en cuenta los dígitos sobrantes
- $mm = $ll % 6; # 1->décimas, 2->centésimas, etc.
- $ll = int( $ll / 6 ); # 1->millonésimas, 3->trillonésimas, etc.
+ $ll -= $mm if $mm > 0; # tomar en cuenta los dÃgitos sobrantes
+ $mm = $ll % 6; # 1->décimas, 2->centésimas, etc.
+ $ll = int( $ll / 6 ); # 1->millonésimas, 3->trillonésimas, etc.
if ($ll) {
- $ll = enteroAtexto('1', $mm, 0) . ' ' . $Llones[$ll] . 'illonés';
- $ll =~ s/^un\s*//; # evitar el 'un ' en 'un millonésimas'
+ $ll = enteroAtexto('1', $mm, 0) . ' ' . $Llones[$ll] . 'illonés';
+ $ll =~ s/^un\s*//; # evitar el 'un ' en 'un millonésimas'
} else {
for ($mm) {
- /1/ && do { $ll = "déc"; last };
- /2/ && do { $ll = "centés"; last };
- $ll = enteroAtexto('1', $mm, 0) . "és";
+ /1/ && do { $ll = "déc"; last };
+ /2/ && do { $ll = "centés"; last };
+ $ll = enteroAtexto('1', $mm, 0) . "és";
}
}
- # Traducir el número, ajustar su sexo
+ # Traducir el número, ajustar su sexo
$mm = enteroAtexto($n, 0, $un_mil);
if ($sex eq 'a') {
$mm =~ s/un$/una/;
} else {
$sex = 'o';
}
- # Ajustar el sexo de la magnitud (milésimas, etc)
+ # Ajustar el sexo de la magnitud (milésimas, etc)
$mm .= ' ' . $ll . "im$sex";
$mm .= 's' if $n !~ /^0*1$/; # plural si es > 1
return $mm;
@@ -199,13 +199,13 @@
#####################################################################
#
-# Soporte para números ORDINALES
+# Soporte para números ORDINALES
#
####################################################################
my @hasta20vo = qw{
x primer_ segund_ tercer_ cuart_ quint_ sext_
- séptim_ octav_ noven_ décim_ undécim_ duodécim_
+ séptim_ octav_ noven_ décim_ undécim_ duodécim_
};
my @decimos = qw {
@@ -222,7 +222,7 @@
return $hasta20vo[$_] if $_ < 13;
/(.)(.)/;
return 'decim_' . $hasta20vo[$2] if $1 == 1;
- return $decimos[$1 - 2] . 'gésim_' . ($2 ? ' ' . $hasta20vo[$2] : "");
+ return $decimos[$1 - 2] . 'gésim_' . ($2 ? ' ' . $hasta20vo[$2] : "");
}
sub hasta1Kvo($)
@@ -233,7 +233,7 @@
my $c = int($n / 100);
$c = $c==0
? ''
- : $centesimos[$c - 1] . 'entésim_';
+ : $centesimos[$c - 1] . 'entésim_';
my $d = hasta100vo($n % 100);
return $c . ($c and $d ? ' ' : '') . $d;
}
@@ -247,8 +247,8 @@
$h = $h<=1
? $h==0
? ''
- : 'milésim_'
- : hasta1k($h) . 'milésim_';
+ : 'milésim_'
+ : hasta1k($h) . 'milésim_';
my $l = hasta1Kvo($n % 1000);
return $h . ($h and $l ? ' ' : '') . $l;
}
@@ -256,29 +256,29 @@
#####################################################################
#
-# Métodos de Clase
+# Métodos de Clase
#
####################################################################
-=head1 MÉTODOS DE CLASE
+=head1 MÃTODOS DE CLASE
=over 4
=item parse_num($num, $dec, $sep)
-Descompone el número en sus diferentes partes y retorna una lista con
+Descompone el número en sus diferentes partes y retorna una lista con
las mismas, por ejemplo:
use Linugua::ES::Numeros qw( :All );
($sgn, $ent, $frc, $exp) = parse_num('123.45e10', '.', '",');
-=head2 Parámetros
+=head2 Parámetros
=over 4
=item $num
-El número a traducir
+El número a traducir
=item $dec
@@ -296,25 +296,25 @@
=item $sgn
-Signo, puede ser -1 si está presente el signo negativo, 1 si está
+Signo, puede ser -1 si está presente el signo negativo, 1 si está
presente el signo negativo y 0 si no hay signo presente.
=item $ent
-Parte entera del número, solo los dígitos más significativos (ver $exp)
+Parte entera del número, solo los dÃgitos más significativos (ver $exp)
=item $frc
-Parte fraccional del número, solo los dígitos menos significativos (ver
+Parte fraccional del número, solo los dÃgitos menos significativos (ver
$exp)
=item $exp
-Exponente del número, si es > 0, dicta el número de ceros que sigue a la parte entera, si es < 0, dicta el número de ceros que están entre el punto decimal y la parte fraccional.
+Exponente del número, si es > 0, dicta el número de ceros que sigue a la parte entera, si es < 0, dicta el número de ceros que están entre el punto decimal y la parte fraccional.
=back
-Este método no se exporta implicitamente, asi que debe ser importado
+Este método no se exporta implicitamente, asi que debe ser importado
con cualquiera de las siguientes sintaxis:
use Lingua::ES::Numeros qw(parse_num);
@@ -342,11 +342,11 @@
$exp = 0 unless defined $exp;
}
else {
- croak "Número ilegal";
+ croak "Número ilegal";
}
return ($sgn, $int, $frc, $exp) if $exp == 0;
- # Correr el punto décimal tantas posciones como sea posible
+ # Correr el punto décimal tantas posciones como sea posible
if ($exp > 0) {
if ($exp > length $frc) {
$exp -= length $frc;
@@ -376,52 +376,52 @@
=head1 CAMPOS
-El objeto contiene los siguientes campos que alteran la conversión.
+El objeto contiene los siguientes campos que alteran la conversión.
=over 4
=item DECIMAL
-Especifíca la cadena de caracteres que se utilizará para separar la
-parte entera de la parte fraccional del número a convertir. El valor
+EspecifÃca la cadena de caracteres que se utilizará para separar la
+parte entera de la parte fraccional del número a convertir. El valor
por defecto de DECIMAL es '.'
=item SEPARADORES
Cadena de caracteres que contiene todos los caracteres de formato del
-número. Todos los caracteres de esta cadena serán ignorados por el
-parser que descompone el número. El valor por defecto de SEPARADORES es
+número. Todos los caracteres de esta cadena serán ignorados por el
+parser que descompone el número. El valor por defecto de SEPARADORES es
',"_'
=item ACENTOS
-Afecta la ortografía de los números traducidos, si es falso la
-representación textual de los números no tendrá acentos, el valor
-predeterminado de este campo es 1 (con acentos). Esté campo puede ser
+Afecta la ortografÃa de los números traducidos, si es falso la
+representación textual de los números no tendrá acentos, el valor
+predeterminado de este campo es 1 (con acentos). Esté campo puede ser
de mucha utilidad si el conjunto de caracteres utilizado no es el
-Latin1, ya que los acentos dependen de él en esta versión (ver
+Latin1, ya que los acentos dependen de él en esta versión (ver
PROBLEMAS).
=item MAYUSCULAS
-Si es cierto, la representación textual del número será una cadena de
-caracteres en mayúsculas, el valor predeterminado de este campo es 0 (en
-minúsculas)
+Si es cierto, la representación textual del número será una cadena de
+caracteres en mayúsculas, el valor predeterminado de este campo es 0 (en
+minúsculas)
=item HTML
-Si es cierto, la representación textual del número será una cadena de
-caracteres en HTML (los acentos estarán representados por las
+Si es cierto, la representación textual del número será una cadena de
+caracteres en HTML (los acentos estarán representados por las
respectivas entidades HTML). El valor predeterminado es 0 (texto).
=item SEXO
-El sexo de los números, puede ser: 'a', 'o' o '', para números en
+El sexo de los números, puede ser: 'a', 'o' o '', para números en
femenino, masculino o neutro respectivamente. El valor por defecto
de este campo es 'o'.
+---+--------------------+-----------------------------+
- |Nú | CARDINALES | ORDINALES |
+ |Nú | CARDINALES | ORDINALES |
|me +------+------+------+---------+---------+---------+
|ro | 'o' | 'a' | '' | 'o' | 'a' | '' |
+---+------+------+------+---------+---------+---------+
@@ -433,26 +433,26 @@
=item UNMIL
Este campo solo afecta la traduccion de cardinales y cuando es cierto,
-el número 1000 se traduce como 'un mil', de otro modo se traduce
+el número 1000 se traduce como 'un mil', de otro modo se traduce
simplemente 'mil'. El valor por defecto de UNMIL es 1.
=item NEGATIVO
-La cadena de caracteres que contiene el nombre con el que se traducirá
+La cadena de caracteres que contiene el nombre con el que se traducirá
el signo negativo (-), por defecto vale 'menos'.
=item POSITIVO
-La cadena de caracteres que contiene el nombre con el que se traducirá
-el signo positivo (+), por defecto vale ''. Esta cadena sólo es añadida
-al número en presencia del signo '+', de otro modo no se agrega aunque
-el número se asume positivo.
+La cadena de caracteres que contiene el nombre con el que se traducirá
+el signo positivo (+), por defecto vale ''. Esta cadena sólo es añadida
+al número en presencia del signo '+', de otro modo no se agrega aunque
+el número se asume positivo.
=item FORMATO
-Una cadena de caracteres que especifíca como se deben traducir los
-decimales de un número real. Su valor por defecto es 'con %02d ctms.'
-(ver el método B<real>).
+Una cadena de caracteres que especifÃca como se deben traducir los
+decimales de un número real. Su valor por defecto es 'con %02d ctms.'
+(ver el método B<real>).
=back
@@ -473,9 +473,9 @@
=head1 CONSTRUCTOR
-Para construir un objeto Lingua::ES::Numeros, se utiliza el método de
-clase B<new>, este método puede recibir como parámetro cualesquiera de
-los campos mencionados en la sección anterior.
+Para construir un objeto Lingua::ES::Numeros, se utiliza el método de
+clase B<new>, este método puede recibir como parámetro cualesquiera de
+los campos mencionados en la sección anterior.
Ejemplos:
@@ -484,7 +484,7 @@
# usa los valores predeterminados de los campos
$obj = new Lingua::ES::Numeros;
- # especifíca los valores de algunos campos
+ # especifÃca los valores de algunos campos
$obj = Lingua::ES::Numeros::->new( 'ACENTOS' => 0,
'MAYUSCULAS' => 1,
'SEXO' => 'a',
@@ -507,47 +507,47 @@
#####################################################################
#
-# Métodos del Objeto
+# Métodos del Objeto
#
####################################################################
sub retval($$)
{
-# Rutina de utilidad que retorna el valor textual adecuado, según los
+# Rutina de utilidad que retorna el valor textual adecuado, según los
# valores de los campos ACENTOS, MAYUSCULAS y HTML.
#
# Esta rutina por ahora no hace uso de locale ni utf8 y por lo tanto el
-# módulo solo funciona en máquinas que utilicen el set de caracteres
+# módulo solo funciona en máquinas que utilicen el set de caracteres
# Latin1 (ISO-8859-1). Esto puede cambiar proximamente.
#
my $self = shift;
$_ = shift;
if ($self->{ACENTOS}) {
- tr/a-záéíóú/A-ZÁÉÍÓÚ/ if $self->{MAYUSCULAS};
+ tr/a-záéÃóú/A-ZÃÃÃÃÃ/ if $self->{MAYUSCULAS};
if ( $self->{HTML} ) {
- s/([ÁÉÍÓÚáéíóú])/&$1acute;/g;
- tr/ÁÉÍÓÚáéíóú/AEIOUaeiou/;
+ s/([ÃÃÃÃÃáéÃóú])/&$1acute;/g;
+ tr/ÃÃÃÃÃáéÃóú/AEIOUaeiou/;
}
}
else {
- tr/áéíóú/aeiou/;
+ tr/áéÃóú/aeiou/;
return uc $_ if $self->{MAYUSCULAS};
}
return $_;
}
-=head1 MÉTODOS DEL OBJETO
+=head1 MÃTODOS DEL OBJETO
=over 4
=item $n = cardinal($n)
-Convierte el número $n, como un número cardinal a castellano.
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+Convierte el número $n, como un número cardinal a castellano.
+
+La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
SEXO, ACENTOS, MAYUSCULAS, POSITIVO y NEGATIVO.
-Esta conversión ignora la parte fraccional del número, si la tiene.
+Esta conversión ignora la parte fraccional del número, si la tiene.
=cut
@@ -564,7 +564,7 @@
$s = $self->{POSITIVO} if $sgn > 0;
$s .= ' ' if $s;
$ent = $s . $ent;
- $ent =~ tr/áéíóú/aeiou/ unless $self->{ACENTOS};
+ $ent =~ tr/áéÃóú/aeiou/ unless $self->{ACENTOS};
}
else {
$ent = 'cero';
@@ -574,37 +574,37 @@
=item $n = real($n [, $fsexo])
-Convierte el número $n, como un número real a castellano.
-
-El parámetro opcional $fsexo se utiliza para especificas un sexo diferente para
+Convierte el número $n, como un número real a castellano.
+
+El parámetro opcional $fsexo se utiliza para especificas un sexo diferente para
la parte decimal, recibe los mismos valores que se le pueden asignar al campo
SESO, pero el sexo neutro equivale a masculino en la parte fraccional, si es
-omitido se usará el valor del campo SEXO.
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+omitido se usará el valor del campo SEXO.
+
+La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
SEXO, ACENTOS, MAYUSCULAS, POSITIVO y NEGATIVO.
=head2 Formato de la parte fraccional (FORMATO)
-Además esta conversión utiliza el campo FORMATO para dirigir la
-conversión de la parte fraccional del número real. Este campo es un
-formato estilo sprintf que solo tiene una especificación de
-formato precedida por '%'. Además las dos únicas especificaciones
-válidas por ahora son:
+Además esta conversión utiliza el campo FORMATO para dirigir la
+conversión de la parte fraccional del número real. Este campo es un
+formato estilo sprintf que solo tiene una especificación de
+formato precedida por '%'. Además las dos únicas especificaciones
+válidas por ahora son:
=over 4
=item %s
-Incluye la representación textual de la parte fraccional dentro del
-formato. Por ejemplo, convertir '123.345' con formato 'más %s.' resultará
-en el número: CIENTO VEINTITRÉS Y TRECIENTOS CUARENTA MÁS CINCO MILÉSIMAS.
+Incluye la representación textual de la parte fraccional dentro del
+formato. Por ejemplo, convertir '123.345' con formato 'más %s.' resultará
+en el número: CIENTO VEINTITRÃS Y TRECIENTOS CUARENTA MÃS CINCO MILÃSIMAS.
=item %Nd
-Incluye la representación numérica de la parte fraccional, donde N es
-una especificación del formato '%d' de sprintf. Por ejemplo, convertir
-'123.345' con formato ' con %02d ctms.' producirá: CIENTO VEINTITRÉS Y
+Incluye la representación numérica de la parte fraccional, donde N es
+una especificación del formato '%d' de sprintf. Por ejemplo, convertir
+'123.345' con formato ' con %02d ctms.' producirá: CIENTO VEINTITRÃS Y
TRECIENTOS CUARENTA CON 34 CTMS.
=back
@@ -625,14 +625,14 @@
# Traducir la parte decimal de acuerdo al formato
for ($self->{FORMATO}) {
/%s/ && do {
- # Textual, se traduce según el sexo
+ # Textual, se traduce según el sexo
$fsex = $sex unless defined $fsex;
$frc = fracAtexto($frc, $exp, $self->{UNMIL}, $fsex);
$frc = $frc ? sprintf($self->{FORMATO}, $frc) : '';
last;
};
/%([0-9]*)/ && do {
- # Numérico, se da formato a los dígitos
+ # Numérico, se da formato a los dÃgitos
$frc = substr('0' x $exp . $frc, 0, $1);
$frc = sprintf($self->{FORMATO}, $frc);
last;
@@ -659,12 +659,12 @@
=item $n = ordinal($n)
-Convierte el número $n, como un número ordinal a castellano.
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+Convierte el número $n, como un número ordinal a castellano.
+
+La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
SEXO, ACENTOS y MAYUSCULAS.
-Presenta advertencias si el número es negativo y/o si no es un natural >
+Presenta advertencias si el número es negativo y/o si no es un natural >
0.
=cut
@@ -692,7 +692,7 @@
my $g = $grupo[$i];
next if $g == 0;
$ent .= ($ent ? ' ' : '') . hasta1M($g,0) . ' ' .
- $Llones[$i] . 'illonésim_';
+ $Llones[$i] . 'illonésim_';
}
if ($grupo[0] > 0) {
$ent .= ' ' if $ent;
@@ -711,61 +711,61 @@
=back
-=head1 DIAGNÓSTICOS
+=head1 DIAGNÃSTICOS
=over 4
-=item Número ilegal.
-
-El número tiene un error sintáctico.
-
-=item Número fuera de rango.
-
-La parte entera del número es demasiado grande. Por el momento solo se
-aceptan números de hasta 10**126 - 1, pues no se cual es la
-representación textual de números >= 10**126. Cualquier ayuda o
-corrección será bien recibida.
-
-=item Número fuera de precisión.
-
-La parte fraccional del número es menor que 10**-126 y no se puede
+=item Número ilegal.
+
+El número tiene un error sintáctico.
+
+=item Número fuera de rango.
+
+La parte entera del número es demasiado grande. Por el momento solo se
+aceptan números de hasta 10**126 - 1, pues no se cual es la
+representación textual de números >= 10**126. Cualquier ayuda o
+corrección será bien recibida.
+
+=item Número fuera de precisión.
+
+La parte fraccional del número es menor que 10**-126 y no se puede
traducir por los motivos antes mencionados.
=item Ordinal negativo
-El número a convertir en ordinal es negativo.
+El número a convertir en ordinal es negativo.
=item Ordinal con decimales
-El número a convertir en ordinal tiene decimales.
+El número a convertir en ordinal tiene decimales.
=back
=head1 AUTOR
-José Luis Rey Barreira <jrey at mercared.com>
+José Luis Rey Barreira <jrey at mercared.com>
=head1 PROBLEMAS
-La conversión a mayúsculas se está haciendo actualmente mediante una
-transliteración para poder convertir los caracteres acentuados. El
-problema es que esto no funcionará si el conjunto de caracteres en uso
+La conversión a mayúsculas se está haciendo actualmente mediante una
+transliteración para poder convertir los caracteres acentuados. El
+problema es que esto no funcionará si el conjunto de caracteres en uso
es distinto al ISO 8859-1 (Latin1) o al ISO 8859-15.
-Las alternativas a este problema serían: la utilización de Perl 5.6 o
-superior con 'utf8', pero restringo el uso del módulo a una gran
-cantidad de usuarios que todavía usan Perl 5.00x, por otra parte podría
+Las alternativas a este problema serÃan: la utilización de Perl 5.6 o
+superior con 'utf8', pero restringo el uso del módulo a una gran
+cantidad de usuarios que todavÃa usan Perl 5.00x, por otra parte podrÃa
utilizar locales, pero no se si estos funcionan exactamente igual en
-Unix, Windows, BeOS, etc. así que creo que la transliteración es
+Unix, Windows, BeOS, etc. asà que creo que la transliteración es
adecuada por ahora.
=head1 LICENCIA
-Este código es propiedad intelectual de José Rey y se distribuye según
-los términos de la Licencia Pública General del proyecto GNU, cuya letra
-y explicación se pueden encontrar en inglés en la página
+Este código es propiedad intelectual de José Rey y se distribuye según
+los términos de la Licencia Pública General del proyecto GNU, cuya letra
+y explicación se pueden encontrar en inglés en la página
http://www.gnu.org/licenses/licenses.html y de la que cual hay una
-traducción al castellano en
+traducción al castellano en
http://lucas.hispalinux.es/Otros/gples/gples.html
=cut
Propchange: packages/liblingua-es-numeros-perl/trunk/debian/rules
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Wed Sep 13 19:00:53 2006
@@ -1,0 +1,1 @@
+*
More information about the Pkg-perl-cvs-commits
mailing list