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 | f996370a9b1b1f481985bc825ab97eecb2ea6b27 (patch) | |
| tree | 57b5cb75235c2e4b75eefd4e508c68f2a36f7a09 | |
| parent | bbb777b4e868ea293d4ba2a056db9ea95f286373 (diff) | |
| download | perl_checker-f996370a9b1b1f481985bc825ab97eecb2ea6b27.tar perl_checker-f996370a9b1b1f481985bc825ab97eecb2ea6b27.tar.gz perl_checker-f996370a9b1b1f481985bc825ab97eecb2ea6b27.tar.bz2 perl_checker-f996370a9b1b1f481985bc825ab97eecb2ea6b27.tar.xz perl_checker-f996370a9b1b1f481985bc825ab97eecb2ea6b27.zip | |
have the generated code perl_checker compliant
| -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]; |