if ($^O eq 'MSWin32') {
      my @path = File::Spec->path;
      my $found = 0;

      foreach my $base (map { File::Spec->catfile ($_, 'g-ir-scanner') } @path) {
        if (-f $base) {
          $gir_cmd = qq(python $base);
          $found = 1;
          last;
        }
      }

      return 0 unless $found;

##</code><code>##

Traceback (most recent call last):
  File "C:\usr\local\bin\g-ir-scanner.py", line 43, in <module>
    from giscanner.scannermain import scanner_main
ImportError: No module named giscanner.scannermain

##</code><code>##

t/00-init.t ....................
(perl.exe:4968): Glib-GObject-CRITICAL **: ..\..\..\gobject\gtype.c:2722: You forgot to call g_type_init()

(perl.exe:4968): Glib-CRITICAL **: file ..\..\..\glib\gthread.c: line 713: assertion `result != 0' failed

(perl.exe:4968): Glib-GObject-CRITICAL **: file ..\..\..\gobject\gobject.c: line
 1538: assertion `G_TYPE_IS_OBJECT (object_type)' failed