From f996370a9b1b1f481985bc825ab97eecb2ea6b27 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Apr 2003 09:55:42 +0000
Subject: have the generated code perl_checker compliant

---
 perl_checker_fake_packages/gen.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index 35be8f4..c209be0 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -18,9 +18,9 @@ sub gtk2 {
                 my $fun = $1;
                 #- one liner constants
                 #-   sub EXPOSURE_MASK { 'exposure-mask' }
-                /^\s*sub\s+(\w+)\s*{\s*('[^']+')|("[^"]+")\s*}/ and $add->($fun, '() { }');
+                /^\s*sub\s+(\w+)\s*{\s*('[^']+')|("[^"]+")\s*}/ and $add->($fun, '() {}');
                 #-   sub Sym_Hangul_J_Phieuf { 0xeed }
-                /^\s*sub\s+(\w+)\s*{\s*0\S+\s*}/                and $add->($fun, '() { }');
+                /^\s*sub\s+(\w+)\s*{\s*0\S+\s*}/                and $add->($fun, '() {}');
 
                 #- explore first line of subroutine definition
                 local $_ = $contents[$::i+1];
-- 
cgit v1.2.1