2013-09-26 17:14:40 +02:00

34 lines
774 B
Plaintext

$NetBSD: patch-aa,v 1.1 2010/12/09 14:59:37 is Exp $
--- 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;