From 805db01a4b6e969fd416def17fd0ae4fb418af4c Mon Sep 17 00:00:00 2001 From: Julian Blake Kongslie Date: Thu, 18 Mar 2010 13:46:33 -0700 Subject: Fix bug in username detection in libpiny. --- usr/src/libpiny/debian/changelog | 5 +++-- usr/src/libpiny/lib/Piny/Environment.pm | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'usr') diff --git a/usr/src/libpiny/debian/changelog b/usr/src/libpiny/debian/changelog index 9d6c07d..f7d4449 100644 --- a/usr/src/libpiny/debian/changelog +++ b/usr/src/libpiny/debian/changelog @@ -1,10 +1,11 @@ -libpiny-perl (0.2-2) unstable; urgency=low +libpiny-perl (0.3-1) unstable; urgency=low * Fix some build-depends stuff. * Add group membership manipulation. * Add some more type constraints. + * Fix a bug in the username detection. - -- Julian Blake Kongslie Thu, 18 Mar 2010 13:28:35 -0700 + -- Julian Blake Kongslie Thu, 18 Mar 2010 13:45:52 -0700 libpiny-perl (0.2-1) unstable; urgency=low diff --git a/usr/src/libpiny/lib/Piny/Environment.pm b/usr/src/libpiny/lib/Piny/Environment.pm index 4430362..586cce3 100644 --- a/usr/src/libpiny/lib/Piny/Environment.pm +++ b/usr/src/libpiny/lib/Piny/Environment.pm @@ -28,7 +28,7 @@ sub _build_user { } elsif ( defined $ENV{"UID"} ) { return Piny::User->new( uid => $ENV{"UID"} ); } elsif ( defined $ENV{"USER"} ) { - return Piny::User->new( username => $ENV{"USERNAME"} ); + return Piny::User->new( username => $ENV{"USER"} ); } else { return Piny::User->new( uid => $< ); }; -- cgit v1.2.3