diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-28 09:55:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-28 09:55:42 +0000 |
| commit | 083865aa5545fdd98f0d5045888ae42fb2fbfc98 (patch) | |
| tree | ae8321c4ad0b84aef87fb875dc8d8cca71b5a268 /perl_checker_fake_packages | |
| parent | fe45a275e9805b58942c0a5e0cbdd9ea06e60b72 (diff) | |
| download | perl-MDK-Common-083865aa5545fdd98f0d5045888ae42fb2fbfc98.tar perl-MDK-Common-083865aa5545fdd98f0d5045888ae42fb2fbfc98.tar.gz perl-MDK-Common-083865aa5545fdd98f0d5045888ae42fb2fbfc98.tar.bz2 perl-MDK-Common-083865aa5545fdd98f0d5045888ae42fb2fbfc98.tar.xz perl-MDK-Common-083865aa5545fdd98f0d5045888ae42fb2fbfc98.zip | |
have the generated code perl_checker compliant
Diffstat (limited to 'perl_checker_fake_packages')
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 4 |
1 files 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]; |