[Rt-commit] r7857 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: t/ticket

[clsung at bestpractical.com]

Author: clsung
Date: Mon May 14 11:49:00 2007
New Revision: 7857

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ticket/linking.t

Log:
 r1067 at going04:  clsung | 2007-05-14 17:58:37 +0800
 - fix =>
   [warning]: Use of uninitialized value in pattern match (m//) at t/ticket/linking.t


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ticket/linking.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ticket/linking.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ticket/linking.t	Mon May 14 11:49:00 2007
@@ -66,7 +66,7 @@
 my $Scrips = RT::Scrips->new( $RT::SystemUser );
 $Scrips->UnLimit;
 while ( my $Scrip = $Scrips->Next ) {
-    $Scrip->Delete if $Scrip->Description =~ /Add or Delete Link \d+/;
+    $Scrip->Delete if $Scrip->Description and $Scrip->Description =~ /Add or Delete Link \d+/;
 }