diff options
| -rw-r--r-- | usr/src/libpiny/debian/changelog | 5 | ||||
| -rw-r--r-- | usr/src/libpiny/lib/Piny/Environment.pm | 2 |
2 files changed, 4 insertions, 3 deletions
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 <jblake@omgwallhack.org> Thu, 18 Mar 2010 13:28:35 -0700 + -- Julian Blake Kongslie <jblake@omgwallhack.org> 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 => $< ); }; |