$NetBSD$

--- cleanscore.orig	2010-12-09 12:33:33.000000000 +0000
+++ cleanscore
@@ -27,8 +27,8 @@ use Getopt::Std;
 
 sub help();
 sub reset_vars(%);
-sub insert_comment(%%);
-sub end_of_score(%$);
+sub insert_comment(%);
+sub end_of_score(%);
 sub clean_file($);
 
 # globals variables.
@@ -323,7 +323,7 @@ sub clean_file($)
 
 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
-sub end_of_score(%$)
+sub end_of_score(%)
 {
   my $entry = shift;
   my $file_is_changed = shift;
@@ -355,7 +355,7 @@ sub end_of_score(%$)
 
 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
-sub insert_comment(%%)
+sub insert_comment(%)
 {
   my $comment=shift;
   my $entry=shift;
