die with a better error message for degenerate values

moritz · Jun 20, 2010 · fc147e9 · fc147e9
1 parent a581e28
commit fc147e9
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/SVG/Plot.pm b/lib/SVG/Plot.pm
@@ -212,9 +212,17 @@ multi method plot(:$full = True, :$xy-lines!) {
     my $max_x      = [max] @.x;
     my $min_x      = [min] @.x;
 
+    if $max_x == $min_x {
+        die "There's just one x value ($max_x), refusing to plot\n";
+    }
+
     my $max_y      = [max] @.values.map: { [max] @($_) };
     my $min_y      = [min] @.values.map: { [min] @($_) };
 
+    if $max_y == $min_y {
+        die "There's just one y value ($max_x), refusing to plot\n";
+    }
+
     my $datasets   = +@.values;
 
     my $step_x     = $.plot-width  / ($max_x - $min_x);