Re: gtk2-perl / casting from perl objects to gtk objects

[Guillaume Cottenceau <gc mandrakesoft com>]

Guillaume Cottenceau <gc mandrakesoft com> writes:

Hum, we might make the following more functional:

>     foreach $gen (map { "$dir/$_" } qw(glib gobject gdk gdk-pixbuf gdk-pixbuf-xlib gtk pango atk)) {
>       foreach $file (glob("$gen/*")) {
>           foreach (cat_($file)) {

With:

    foreach (map { cat_($_) } map { glob("$dir/$_/*") } qw(glib gobject gdk gdk-pixbuf gdk-pixbuf-xlib gtk 
pango atk)) {

But maybe it would be too obfuscted. It's up to you :).

-- 
Guillaume Cottenceau - http://people.mandrakesoft.com/~gc/