All pastes #343483 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-02-07 01:54 UTC
rendered paste body
#!/usr/bin/perl -w 
#use strict;
use X11::SendEvent;

$win = $self->FindWin("xterm");
$win->SendString("HELLO");
#$win = X11::SendEvent->new(win => "MyTerminal");
#$win->SendString("testing", ["Return"]);
#$win->SendString("user", ["Return"], "joe", ["9/1"]);

Name "main::self" used only once: possible typo at ./test.pl line 5.
Can't call method "FindWin" on an undefined value at ./test.pl line 5.