--- lib/Arh/Action/UploadPicture.pm	2008/04/06 19:54:12	52
+++ lib/Arh/Action/UploadPicture.pm	2008/04/06 20:49:32	53
@@ -57,11 +57,12 @@
 
 		my $scaled_image = $image->scale( %$scale ) or die $image->errstr;
 		undef $image;
+
 		$scaled_image->write(
 			data => \$content,
 			type => 'jpeg',
 #			jpegquality => 95,
-		) or die $image->errstr;
+		) or die $scaled_image->errstr;
 		undef $scaled_image;
 
 		warn "## resized to ",length($content), " bytes...";