fairphone-case: introduce case_bottom_z (nfc)

[reprap-play.git] / screw-recess-test-number.fig.pl

diff --git a/screw-recess-test-number.fig.pl b/screw-recess-test-number.fig.pl
index d17365488288f95c17267266d2eb346aa000d334..023b31539f8574631db0e79e52f7f6495a5887fb 100755 (executable)
--- a/screw-recess-test-number.fig.pl
+++ b/screw-recess-test-number.fig.pl
@@ -1,12 +1,11 @@
 #!/usr/bin/perl
 
-my $number = shift ARGV;
+my $number = shift @ARGV;
 die unless $number =~ m/^\d+$/;
 
 my $fontsz = $number * 6 + 12;
 
-print <DATA> or die $!;
-__DATA__
+print <<END or die $!;
 #FIG 3.2  Produced by xfig version 3.2.5b
 Landscape
 Center
@@ -17,3 +16,4 @@ Single
 -2
 1200 2
 4 0 0 50 -1 18 $fontsz 0.0000 4 285 225 3600 4500 $number\001
+END