--- vfstest_old.pl	2004-03-06 17:22:49.000000000 +0100
+++ vfstest.pl	2004-03-06 17:22:34.000000000 +0100
@@ -11,25 +11,23 @@
 my ($result, $handle, $info);
 
 ($result, $handle) = Gnome2::VFS->open($url, "read");
-die "Problem: $@" unless $result eq "ok";
+die "Problem: $result" unless $result eq "ok";
 
 ($result, $info) = $handle->get_file_info("default");
-die "Problem: $@" unless $result eq "ok";
+die "Problem: $result" unless $result eq "ok";
 
-my $bytes = $info->{size};
+my $bytes_per_iteration = 1024;
 
 my $bytes_read = 0;
 my $buffer = "";
 
 do {
 	my ($tmp_buffer, $tmp_bytes_read);
-	($result, $tmp_bytes_read, $tmp_buffer) = $handle->read($bytes - $bytes_read);
-	die "Problem: $@" unless $result eq "ok";
+	($result, $tmp_bytes_read, $tmp_buffer) = $handle->read($bytes_per_iteration);
 	$buffer .= $tmp_buffer;
-	$bytes_read += $tmp_bytes_read;
-} while ($result eq "ok" and $bytes_read < $bytes);
+} while ($result eq "ok");
 
 $result = $handle->close();
-die "Problem: $@" unless $result eq "ok";
+die "Problem: $result" unless $result eq "ok";
 
 print $buffer;