From d6e3cc4eec4343d6300927d1c6797e3883583d84 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 8 Oct 2017 00:06:52 +0100
Subject: [PATCH] poster-tube-lid: make into a perl script

---
 .gitignore                                      |  1 +
 poster-tube-lid.scad => poster-tube-lid.scad.pl | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)
 rename poster-tube-lid.scad => poster-tube-lid.scad.pl (93%)
 mode change 100644 => 100755

diff --git a/.gitignore b/.gitignore
index 36df2f9..2908e78 100644
--- a/.gitignore
+++ b/.gitignore
@@ -33,3 +33,4 @@ sewing-table-front-profile.eps
 sewing-table-end-profile.dxf
 sewing-table-end-profile.eps
 sewing-table,Demo-flat.png
+poster-tube-lid.scad
diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad.pl
old mode 100644
new mode 100755
similarity index 93%
rename from poster-tube-lid.scad
rename to poster-tube-lid.scad.pl
index 13a5a8b..2bb7d1d
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad.pl
@@ -1,4 +1,10 @@
-// -*- C -*-
+#!/usr/bin/perl -w
+# -*- C -*-
+
+use strict;
+use autodie;
+
+print <<'END' or die $!;
 
 main_dia = 71.2 + 0.50;
 top_thick = 4;
@@ -55,3 +61,5 @@ module MainProfile(){
 }
 
 MainProfile();
+
+END
-- 
2.30.2