From e44938759e45f0c46eb8e314d7ead9921fe5e7d9 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Mon, 19 Aug 2002 19:07:08 +0000
Subject: Document and check maximum length of a thorn name

Fixes Cactus/882


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2970 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/make/new_thorn.pl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/make/new_thorn.pl')

diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
index 41042c70..05ec24b7 100755
--- a/lib/make/new_thorn.pl
+++ b/lib/make/new_thorn.pl
@@ -285,6 +285,12 @@ sub TestName
     $valid = 0;
   }
 
+  if ($thorn && length($name)>27)
+  {
+    print STDERR "Thorn names must be 27 characters or less!\n\n";
+    $valid = 0;
+  }
+
   if ($thorn && $name eq "doc")
   {
     print STDERR "Thorn name doc is not allowed!\n\n";
-- 
cgit v1.2.3