[Rt-commit] r13346 - rt/3.8/trunk/lib/RT/Graph

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jun 16 21:48:21 2008
New Revision: 13346

Modified:
   rt/3.8/trunk/lib/RT/Graph/Tickets.pm

Log:
* use 'our' instead of 'my' in lib/RT/Graph/Tickets.pm
** try to workaround mysterious bug

Modified: rt/3.8/trunk/lib/RT/Graph/Tickets.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Graph/Tickets.pm	(original)
+++ rt/3.8/trunk/lib/RT/Graph/Tickets.pm	Mon Jun 16 21:48:21 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] );