[bcn-pm] Extraño error con getpwnam

[Eva Perales Laguna]

On Thu, Feb 09, 2006 at 01:10:23AM +0100, Jose Pedro Andres Garcia wrote:
> Buenas:

Hola

> foreach ( 'root', 'macklus' ) {
>         if ( getpwnam ( $_ ) ) {
>                 my ($upass,$uid) = ( getpwnam ( $_ ))[1,2];
>                 print "RECIBO: $upass, $uid\n";
>         } else {
>                 print "ERROR: Usuario $_ no se devuelve !\n";
>         }
> }
> 

> ¿ Alguien puede probar esto en un linux que no sea debian, para saber si 
> es de esta distro o es general ?

Lo he probado en el kurro (Red Hat Linux 7.3 y Perl 5.6.1) y me pasa
lo mismo, "ERROR: Usuario root no se devuelve !".
No puedo probarlo como root porque no tengo el password, pero intentaré
preguntar a los de sistemas.

Saludos,
Eva