diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:37:47 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:37:47 +0000 |
| commit | 8daa6d76cecf4ee61436a5e60ce5de16c698b3cb (patch) | |
| tree | cef546e5017670ce730e4dde1426f1b6a2034062 /perl_checker_fake_packages/gen.pl | |
| parent | 97648283b90bebf6dabff8408451165ed79a076d (diff) | |
| download | perl_checker-8daa6d76cecf4ee61436a5e60ce5de16c698b3cb.tar perl_checker-8daa6d76cecf4ee61436a5e60ce5de16c698b3cb.tar.gz perl_checker-8daa6d76cecf4ee61436a5e60ce5de16c698b3cb.tar.bz2 perl_checker-8daa6d76cecf4ee61436a5e60ce5de16c698b3cb.tar.xz perl_checker-8daa6d76cecf4ee61436a5e60ce5de16c698b3cb.zip | |
fix missing functions from GC
Diffstat (limited to 'perl_checker_fake_packages/gen.pl')
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index 12362a0..580972d 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -127,7 +127,7 @@ sub gtk2 { my ($trimlast) = $file =~ /([A-Z]\w+)\.c$/; while ($trimlast =~ s/([a-z])([A-Z])/$1_$2/) {} - $trimlast =~ s/^G([A-Z])/$1/; #- glib case + $file =~ /\bGC\b/ or $trimlast =~ s/^G([A-Z])/$1/; #- glib case $file =~ m|Gdk/Event/src| and $trimlast = "event_$trimlast"; #- gdkevent case $trimlast = lc($trimlast); #- skip functions that will not be exported anyway because don't follow the naming scheme |