System error

error:

Illegal division by zero at /usr/local/wwwdoc/img/htdocs/render line 25.

context:

...
21:
22:	$new_format =~ /maxside-(\d+)/i and do {
23:	$w = $pic->Get('width');
24:	$h = $pic->Get('height');
25:	if ( $w>$h ) { $x=$1; $y=$1$h/$w } else { $y=$1; $x=$1$w/$h }
26:	};
27:
28:	$pic->Scale(width=>$x,height=>$y);
29:	$pic->Set(quality=>90,magick=>'jpg');
...

code stack:

/usr/local/wwwdoc/img/htdocs/render:25

raw error

Illegal division by zero at /usr/local/wwwdoc/img/htdocs/render line 25.


Trace begun at /usr/local/lib/perl5/site_perl/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Illegal division by zero at /usr/local/wwwdoc/img/htdocs/render line 25.^J') called at /usr/local/wwwdoc/img/htdocs/render line 25
HTML::Mason::Commands::__ANON__ at /usr/local/lib/perl5/site_perl/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x804a15630)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 1300
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x8066d3240)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x8066d3240)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x80592ac18)', 'Apache2::RequestRec=SCALAR(0x80592e768)') called at (eval 23) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x80592e768)') called at -e line 0
eval {...} at -e line 0