[rt.cpan.org #43841] Win32::Clipboard::WaitForChange() doesn't wait

[K. Wittrock via RT]

Wed Mar 04 12:23:21 2009: Request 43841 was acted upon.
Transaction: Ticket created by kwittr...@web.de
       Queue: Win32-Clipboard
     Subject: Win32::Clipboard::WaitForChange() doesn't wait
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: kwittr...@web.de
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=43841 >


Dear maintainer of Win32::Clipboard,

this Perl script shows a bug in Win32::Clipboard::WaitForChange():

    use Win32::Clipboard;
    my $clip = Win32::Clipboard();
    print "Now waiting for change\n";
    $clip->WaitForChange();
    print "Now waiting for change\n";
    $clip->WaitForChange();
## While the script waits, use ctrl-c in a different window
## to send some text to the clipboard.
    print "Contents:\n", $clip->GetText(), "\n";
    print "Now waiting for change\n";
    $clip->WaitForChange();
## Send some more text to the clipboard.
    print "New contents:\n", $clip->GetText(), "\n";

WaitForChange() doesn't wait after being called for the 1st time. 
I use Windows XP with SP3 and ActivePerl 5.8.8. I observed the error with 
Win32::Clipboard versions 0.52 and 0.55.

Regards

Klaus Wittrock