Parent Directory | Revision Log | Patch
revision 52 by dpavlin, Sun Apr 6 19:54:12 2008 UTC | revision 53 by dpavlin, Sun Apr 6 20:49:32 2008 UTC | |
---|---|---|
# | Line 57 sub take_action { | Line 57 sub take_action { |
57 | ||
58 | my $scaled_image = $image->scale( %$scale ) or die $image->errstr; | my $scaled_image = $image->scale( %$scale ) or die $image->errstr; |
59 | undef $image; | undef $image; |
60 | ||
61 | $scaled_image->write( | $scaled_image->write( |
62 | data => \$content, | data => \$content, |
63 | type => 'jpeg', | type => 'jpeg', |
64 | # jpegquality => 95, | # jpegquality => 95, |
65 | ) or die $image->errstr; | ) or die $scaled_image->errstr; |
66 | undef $scaled_image; | undef $scaled_image; |
67 | ||
68 | warn "## resized to ",length($content), " bytes..."; | warn "## resized to ",length($content), " bytes..."; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |