From 416ad241eafd75f9bb264adad1c4f5c7e2194c56 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 4 Sep 2011 11:06:15 +0200
Subject: [PATCH] Require at least one perimeter

---
 lib/Slic3r/Perimeter.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/Perimeter.pm b/lib/Slic3r/Perimeter.pm
index ce148c033..8d6beda71 100644
--- a/lib/Slic3r/Perimeter.pm
+++ b/lib/Slic3r/Perimeter.pm
@@ -9,8 +9,9 @@ sub make_perimeter {
     my ($layer) = @_;
     printf "Making perimeter for layer %d:\n", $layer->id;
     
-    # skip entire section if no perimeters are requested
-    return unless $Slic3r::perimeter_offsets > 0;
+    # at least one perimeter is required
+    die "Can't extrude object without any perimeter!\n"
+        if $Slic3r::perimeter_offsets == 0;
     
     my (@perimeters, %contours, %holes) = ();
     foreach my $surface (@{ $layer->surfaces }) {