From: ivan <ivan>
Date: Mon, 1 Jul 2002 22:38:21 +0000 (+0000)
Subject: prevent any possible infinite looping
X-Git-Tag: freeside_1_4_0_beta1~36
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3b7715909d2f2983a077ff97ff66faac40cb9558

prevent any possible infinite looping
---

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;