Cygwin version: CYGWIN_NT-6.1-WOW64 I5 1.7.9(0.237/5/3) 2011-03-29
10:10 i686 Cygwin

Host:  MS Windows 7, SP1, 64Bit OS

Cygwin Perl Version: v5.10.1 (*) built for i686-cygwin-thread-multi-64int

MS Word Version:  Office 2010 or Office 2007.

==================================================

A simple Win32 COM script (included below) dies when invoked like so:

$ perl broken_with_cygwin.pl
Can't call method "PageSetup" on an undefined value at
broken_with_cygwin.pl line 23.
$ cat broken_with_cygwin.pl
#!/bin/perl

   use Win32::OLE;
   use Win32;

   my ($Word, $tmp_out_file);

   $tmp_out_file = Win32::GetCwd() . "__some_junk_temp_file__.txt";
   open(TMP_OUT_FILE, '>', $tmp_out_file) or
       die "$0: error opening temporary output file \"$tmp_out_file\": $!";
   print TMP_OUT_FILE "one line of text\n";
   close TMP_OUT_FILE;

   if (! ($Word = Win32::OLE->new('Word.Application')))
   {
       die "failed to start MS Word, aborting\n";
   }
   $Word->{Visible} = 1;     # make word visible
   $Word->Activate;          # and activate word
   $Word->Documents->Add;    # create a new, empty document
   $Word->Selection->InsertFile($tmp_out_file);
   $Word->ActiveDocument->PageSetup->{LeftMargin}  = 36;   # 0.5 in
   $Word->ActiveDocument->PageSetup->{RightMargin} = 36;   # 0.5 in

   # mark newly created document as "saved" (so it can be clicked away
   # without a prompt to save the "file").
   $Word->ActiveDocument->{Saved} = 1;
   unlink $tmp_out_file;

======================
If I run this script in a Windows XP environment (using the same
version of perl and cygwin), no errors are reported.

If I run this same script in a cmd.exe shell, no errors are reported.

If I run this same script via the ActiveState Perl interpreter, no
errors are reported.

I've attached the script and the output of "cygcheck -s" .

- Clark Morgan