[Rt-commit] r13357 - in rt/3.8/branches/3.8.0-releng: .

[jesse at bestpractical.com]

Author: jesse
Date: Tue Jun 17 13:18:05 2008
New Revision: 13357

Modified:
   rt/3.8/branches/3.8.0-releng/   (props changed)
   rt/3.8/branches/3.8.0-releng/lib/RT/Graph/Tickets.pm

Log:
 r32998 at 31b (orig r13346):  ruz | 2008-06-16 21:48:21 -0400
 * use 'our' instead of 'my' in lib/RT/Graph/Tickets.pm
 ** try to workaround mysterious bug


Modified: rt/3.8/branches/3.8.0-releng/lib/RT/Graph/Tickets.pm
==============================================================================
--- rt/3.8/branches/3.8.0-releng/lib/RT/Graph/Tickets.pm	(original)
+++ rt/3.8/branches/3.8.0-releng/lib/RT/Graph/Tickets.pm	Tue Jun 17 13:18:05 2008
@@ -75,14 +75,14 @@
     deleted  => { fontcolor => '#A9A9A9' },
 );
 
-my %link_style = (
+our %link_style = (
     MemberOf  => { style => 'solid' },
     DependsOn => { style => 'dashed' },
     RefersTo  => { style => 'dotted' },
 );
 
 # We don't use qw() because perl complains about "possible attempt to put comments in qw() list"
-my @fill_colors = split ' ',<<EOT;
+our @fill_colors = split ' ',<<EOT;
     #0000FF #8A2BE2 #A52A2A #DEB887 #5F9EA0 #7FFF00 #D2691E #FF7F50
     #6495ED #FFF8DC #DC143C #00FFFF #00008B #008B8B #B8860B #A9A9A9
     #A9A9A9 #006400 #BDB76B #8B008B #556B2F #FF8C00 #9932CC #8B0000
@@ -110,7 +110,7 @@
 
 our (%fill_cache, @available_colors) = ();
 
-my %property_cb = (
+our %property_cb = (
     Queue => sub { return $_[0]->QueueObj->Name || $_[0]->Queue },
     CF    => sub {
         my $values = $_[0]->CustomFieldValues( $_[1] );