--- trunk/lib/Frey/Server.pm	2008/11/29 22:02:08	627
+++ trunk/lib/Frey/Server.pm	2008/11/30 15:04:07	639
@@ -36,8 +36,8 @@
 
 sub print {
 	my $self = shift;
-	warn "# print ",dump( @_ );
-	$self->{print}->( @_ );
+	warn "# print ", join(' ', map { length $_ } @_ );
+	$self->{_print}->( @_ );
 }
 
 sub request {
@@ -45,6 +45,7 @@
 
 	if ( my $ref = ref($url) ) {
 		die "url not URI but ", dump( $url ) unless $ref =~ m{^URI};
+	} else {
 		$url = URI->new($url);
 	}
 
@@ -61,9 +62,9 @@
 			if ( system($cmd) == 0 ) {
 				my $server = Frey::Server->new;
 				$self->load_config;
-				Module::Reload->check;
+#				Module::Reload->check;
 				warn "# reload done";
-				$self->print( refresh( $1, 1 ) );
+				$self->print( refresh( $1, 0 ) );
 				return;
 			} else {
 				warn "ERROR: $?";
@@ -85,7 +86,6 @@
 			return $class;
 		}
 
-
 		my $f;
 
 		# shared run params