fix --help output to be proper UTF-8

[clawsker.git] / ucl

diff --git a/ucl b/ucl
index bd79f84598dc452cb48ade587129a47e2776c1dc..65ea49e0fb04b69355f0a23576744e84714d8b10 100755 (executable)
--- a/ucl
+++ b/ucl
@@ -2,7 +2,7 @@
 # 
 # ucl - update changelog for subversion or git projects (perl version)
 # 
-# Copyright (c) 2005-2011 by Ricardo Mones <ricardo@mones.org>
+# Copyright (c) 2005-2012 by Ricardo Mones <ricardo@mones.org>
 #
 # Permission  is hereby granted, free of  charge, to any  person obtaining a
 # copy of this software and associated documentation files (the "Software"),
@@ -29,6 +29,7 @@ use strict;
 my $PROJECT = 'clawsker';      # project name
 my $TYPE = 'git';              # either 'git' or 'svn'
 my $REPO = 'git@github.com:mones/clawsker.git'; # repository base URL
+my $USER = "mones";
 # project files
 my $CL = './ChangeLog';                # changelog file
 my $VF = './VERSION';          # version file
@@ -261,7 +262,7 @@ sub get_newer_version {
 sub get_newer_header {
   my $newversion = shift;
   my $cldate = &get_changelog_date;
-  my $cluser = $ENV{USER};
+  my $cluser = $USER; # $ENV{USER};
   return "$cldate  $cluser   $newversion";
 }