From 8ad9fe416ad448bdb3f1d0795655b1bdd2010bb6 Mon Sep 17 00:00:00 2001 From: is Date: Thu, 9 Dec 2010 14:59:37 +0000 Subject: No, (%%) and (%$) in prototypes are not doing what somebody thought a few years ago. (Un-,?)fortunately, the first % just grabs all parameters on a sub call in a way that shift inside it can get at them, so the 2nd % and the $ were ignored. Until some warning was added to perl recently. --- news/cleanscore/Makefile | 3 ++- news/cleanscore/distinfo | 3 ++- news/cleanscore/patches/patch-aa | 33 +++++++++++++++++++++++++++++++++ 3 files changed, 37 insertions(+), 2 deletions(-) create mode 100644 news/cleanscore/patches/patch-aa (limited to 'news') diff --git a/news/cleanscore/Makefile b/news/cleanscore/Makefile index 4867b7390c5..9f3c089cd78 100644 --- a/news/cleanscore/Makefile +++ b/news/cleanscore/Makefile @@ -1,7 +1,8 @@ -# $NetBSD: Makefile,v 1.2 2010/02/11 23:27:24 joerg Exp $ +# $NetBSD: Makefile,v 1.3 2010/12/09 14:59:37 is Exp $ # DISTNAME= cleanscore-0.9.8.1 +PKGREVISION= 1 CATEGORIES= news MASTER_SITES= http://slrn.sourceforge.net/cleanscore/ diff --git a/news/cleanscore/distinfo b/news/cleanscore/distinfo index 522e17c74f9..fadcf74e61f 100644 --- a/news/cleanscore/distinfo +++ b/news/cleanscore/distinfo @@ -1,5 +1,6 @@ -$NetBSD: distinfo,v 1.1.1.1 2007/10/12 12:30:47 is Exp $ +$NetBSD: distinfo,v 1.2 2010/12/09 14:59:37 is Exp $ SHA1 (cleanscore-0.9.8.1.tar.gz) = ae132707ee5e7e5805ee6a7051d34f605b8340cb RMD160 (cleanscore-0.9.8.1.tar.gz) = 575e1ac974ad23aa557ca2c67a28bbd07546f9ec Size (cleanscore-0.9.8.1.tar.gz) = 13439 bytes +SHA1 (patch-aa) = 4622601fe21bacb1a775b28539ff477c1272ac9d diff --git a/news/cleanscore/patches/patch-aa b/news/cleanscore/patches/patch-aa new file mode 100644 index 00000000000..d49083d7ed5 --- /dev/null +++ b/news/cleanscore/patches/patch-aa @@ -0,0 +1,33 @@ +$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; -- cgit v1.2.3