Plot coordinate pairs: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,816: / Line 1,816: @@
 # Save as image.
 $format = $graph->export_format;
-open(OUF, ">qsort-range-10-9.$format");
+open my $fh, '>', "qsort-range-10-9.$format";
-binmode OUF;
+binmode $fh;
-print OUF $gd->$format();
+print $fh $gd->$format();
-close(OUF);</lang>
+close $fh;
-{{libheader|Imager}}
 {{libheader|Imager::Plot}}
 <lang perl>use Imager;