getlogin works on debian but not ubuntu?

[bcrowell2]

O monks,

I find that getlogin(), which has always worked for me on past versions of debian, doesn't work on ubuntu precise. Is this a bug? A feature?

Here was the best workaround I was able to find:

my $user = getlogin() || `whoami`;
$user =~ s/\n$//;

[LanX]

perldoc -f getlogin

       getlogin
               This implements the C library function of the same name
+, which
               on most systems returns the current login from /etc/utm
+p, if
               any.  If null, use "getpwuid".
 
                   $login = getlogin || getpwuid($<) || "Kilroy";

I'm on ubuntu, and this ...

 perl -e 'print getlogin || getpwuid($<)'
lanx

works for me.

[bcrowell2]

Interesting. When I run your code on ubuntu, I get this:

perl -e 'print getlogin || getpwuid($<)'
bcrowellx10001000Ben Crowell,,,/home/bcrowell/bin/bash

I guess getlogin fails, and that puts getpwuid's array output in scalar context or something? Dunno why it works differently on two versions of ubuntu.

[LanX]

well getlogin worked for me, so getpwuid was never executed, just putting scalar in front seems to solve the issue for both of us (I wasn't thinking about print's list context)

 perl -e 'print scalar getpwuid($<) '
lanx