gobject-2.0.pc pango.pc gtk+-2.0.pc #### perl Makefile.pl INC="-IC:/strawberry/c/include/freetype2 -IC:/prog/gtk+/include/cairo -IC:/prog/gtk+/include/ -I. -I.\build" #### dmake dmake test dmake install #### perl Makefile.pl INC="-IC:\prog\gtk+\include\glib-2.0 -IC:\prog\Gtk+\lib\glib-2.0\include -I. -I./build" dmake dmake test dmake install #### perl Makefile.pl INC="-IC:\prog\gtk+\include -IC:/prog/gtk+/include/freetype2 -IC:/prog/Gtk+/include/cairo -IC:\prog\Gtk+\include\Pango-1.0 -IC:\prog\Gtk+\include\glib-2.0 -IC:\prog\Gtk+\lib\glib-2.0\include -I. -I./build -IC:\strawberry\perl\site\lib\Glib\Install -IC:\strawberry\perl\site\lib\Cairo\Install" dmake dmake test dmake install #### perl Makefile.pl INC="-IC:\strawberry\perl\site\lib\Glib\Install -IC:\strawberry\perl\site\lib\Pango\Install -IC:\strawberry\perl\site\lib\Cairo\Install -IC:\prog\gtk+\include -IC:\prog\Gtk+\include\glib-2.0 -IC:\prog\gtk+\include\pango-1.0 -IC:\prog\Gtk+\include\cairo -IC:\prog\Gtk+\include\atk-1.0 -IC:\prog\gtk+\include\gdk-pixbuf-2.0 -IC:\prog\gtk+\include\gtk-2.0 -IC:\prog\gtk+\include\freetype2 -IC:\prog\Gtk+\lib\glib-2.0\include -IC:\prog\Gtk+\lib\gtk-2.0\include -I. -I./build" dmake dmake test dmake install #### C:\prog\gtk+\include C:\prog\Gtk+\include\xxx C:\prog\Gtk+\lib\xxx\include #### perl Makefile.PL INC="changed to include the new path" dmake #### use strict; use warnings; use File::Copy; my $from= "C:/prog/gtk+/bin/"; my %fm=('C:/strawberry/perl/site/lib/auto/Glib/' => [qw( libglib-2.0-0.dll intl.dll libgthread-2.0-0.dll libgobject-2.0-0.dll )], 'C:/strawberry/perl/site/lib/auto/Cairo/' => [ qw( libcairo-2.dll libexpat-1.dll freetype6.dll libpng14-14.dll libfontconfig-1.dll zlib1.dll )], 'C:/strawberry/perl/site/lib/auto/Pango/' => [qw( libgmodule-2.0-0.dll libpango-1.0-0.dll libpangocairo-1.0-0.dll libpangoft2-1.0-0.dll libpangowin32-1.0-0.dll )], 'C:/strawberry/perl/site/lib/auto/Gtk2/' => [ qw( libgtk-win32-2.0-0.dll libgio-2.0-0.dll libgdk_pixbuf-2.0-0.dll libatk-1.0-0.dll libgdk-win32-2.0-0.dll )]); foreach my $dest (keys %fm){ my $files = $fm{$dest}; foreach my $file (@$files){ print "will copy $from$file to $dest/$file\n"; copy("$from$file", "$dest/$file") or die("failed... : $!"); } }