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
