--- Term-ReadLine-Gnu-1.16-SwzIoa/t/callback.t~	2003-03-16 06:23:13.000000000 +0100
+++ Term-ReadLine-Gnu-1.16-SwzIoa/t/callback.t	2007-01-07 16:09:28.000000000 +0100
@@ -40,7 +40,9 @@ my ($version) = $attribs->{library_versi
 # check Tk is installed
 #disable the warning, "Too late to run INIT block at..."
 $^W = 0;
-if (eval "use Tk; 1") {
+# AUTOMATED_TESTING seems to be a de-facto standard for running
+# unattended test scripts
+if (!$ENV{AUTOMATED_TESTING} and eval "use Tk; 1") {
     print "ok $n\tuse Tk\n"; $n++;
 } else {
     print "ok $n\t# skipped since Tk is not installed.\n"; $n++;