diff options
| -rwxr-xr-x | localuserinfo | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localuserinfo b/localuserinfo index 8f01e0f..2c13ec6 100755 --- a/localuserinfo +++ b/localuserinfo @@ -1,5 +1,5 @@ #!/usr/bin/perl -wT -our $ID = q$Id: localuserinfo,v 1.3 2007-02-07 11:33:53 jonas Exp $; +my $ID = q$Id: localuserinfo,v 1.4 2007-02-07 11:43:34 jonas Exp $; # # localuserinfo -- List fullname for each user # @@ -35,7 +35,7 @@ my $ignore_badname = 0; # should we ignore bad names? our @names; # Resolve version number from CVS id -our $version = join (' ', (split (' ', $ID))[1..3]); +my $version = join (' ', (split (' ', $ID))[1..3]); $version =~ s/,v\b//; $version =~ s/(\S+)$/($1)/; |