Select Code to Download

GD Warning: one parameter to a memory allocation multiplication is neg
+ative or zero, failing operation gracefully

line 618

use strict;
use warnings;
...
  print $out $resized->jpeg or die "unable to write jpg data!";
  close $out;
}

# @files is ArrayOfArray
# each element contains pic data as follow:
...
  # some display and tk stuff removed
}
######################################################################
+##########