| Subject: | Win32::Clipboard::WaitForChange() doesn't wait |
| Date: | Wed, 4 Mar 2009 17:37:27 +0100 |
| To: | <bug-Win32-Clipboard [...] rt.cpan.org> |
| From: | "K. Wittrock" <KWittrock [...] web.de> |
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