cygwin changes
[imager-screenshot.git] / t / 40tkwin32.t
index 810e21c8a04298b5d1d3e531775e5c750100d2ae..f8f2ab842576325a867d0a7993ee01e16a71eb4d 100644 (file)
@@ -12,7 +12,11 @@ $@
   and plan skip_all => "Tk not available";
 
 my $im;
-my $mw = Tk::MainWindow->new;
+my $mw;
+eval {
+  $mw = Tk::MainWindow->new;
+};
+$@ and plan skip_all => 'Cannot create a window in Tk';
 
 $mw->windowingsystem eq 'win32'
   or plan skip_all => 'Tk windowing system not Win32';