From 3b7715909d2f2983a077ff97ff66faac40cb9558 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 1 Jul 2002 22:38:21 +0000
Subject: [PATCH] prevent any possible infinite looping

---
 FS/FS/part_export/textradius.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/part_export/textradius.pm b/FS/FS/part_export/textradius.pm
index 691753f25..de0158b50 100644
--- a/FS/FS/part_export/textradius.pm
+++ b/FS/FS/part_export/textradius.pm
@@ -55,7 +55,7 @@ sub textradius_insert { #subroutine, not method
 
   #silly arg processing
   my($att, @check);
-  push @check, $att while ($att=shift @attributes) ne '-';
+  push @check, $att while @attributes && ($att=shift @attributes) ne '-';
   my %check = @check;
   my %reply = @attributes;
 
-- 
2.11.0