Do not ask interactive questions, nor fetch anything from the Internets.
Lubomir Rintel (Good Data) <lubo.rintel@gooddata.com>

diff -urp XML-Smart-1.6.9.orig/test.pl XML-Smart-1.6.9/test.pl
--- XML-Smart-1.6.9.orig/test.pl	2004-09-01 20:39:28.000000000 +0200
+++ XML-Smart-1.6.9/test.pl	2008-06-03 11:36:45.000000000 +0200
@@ -1251,7 +1251,8 @@ TEXT1 &amp; more
   
     my $url = 'http://www.perlmonks.org/index.pl?node_id=16046' ;
 
-    my $opt = prompt("\nURL: $url\nDo you want to test XML::Smart with an URL?","n");
+    #my $opt = prompt("\nURL: $url\nDo you want to test XML::Smart with an URL?","n");
+    my $opt = 'no way, dude';
     
     if ( $opt =~ /^\s*(?:y|s)/si ) {
       print "\nGetting URL... " ;