use strict;
use Carp;
use warnings;

my @girpkg = qw
(
    amtk5         ayatana-ido   evince        garcon
    gconf         geocode-glib  gimp30        gnome-autoar
    goocanvas2    granite       graphene      gspell
    gstreamer     gtkspell3     gtksrc4       json-glib
    libbabl       libbamf3      libdazzle     libdbusmenu
    libgcab       libgcr        libgdl        libgee
    libgegl04     libgepub      libgmime      libgnomekbd
    libgtop       libgudev      libguestfs    libgxps
    libhandy      libmypaint    libnice       libnotify
    libosinfo     libpeas       libpeas2      libsoup
    libsoup3      libunique     libvirt-glib  libxfce4ui
    libxfce4util  libxklavier   libxmlb       osm-gps-map
    poppler       rhythmbox     spice-gtk     tepl
    thunar        umockdev      vips          vte
    webkit2gtk3   xfconf

    appstream-glib
    gnome-desktop
    libayatana-appindicator
    tracker-sparql
);

#---------------------------------------------------------------------

my $PRODTREE = $ENV {'PRODTREE'};
die unless -d $PRODTREE;

my $GGDIR = "$PRODTREE/gtkcore/share/gir-1.0";

for my $girpkg (@girpkg)
{
    my $WGDIR = "$PRODTREE/$girpkg/share/gir-1.0";

    if (-d $WGDIR)
    {
        print "$girpkg\n";
        system "instreplinks -d $WGDIR/ $GGDIR";
    }
}