[Coral-dev] T2_report++ colour Compilation error line 427

[Ryan Koga]

Ballinger, Dan wrote:

> Unable to use GD::Graph::colourCompilation error at 
> /usr/local/Coral/bin/t2_report++ line 427

> Any ideas on what is wrong?

We've encountered this ourselves and while we don't know why exactly it's 
failing, the cause is an 'autouse' statement in Traffic_plot.pm.  So if you 
edit libsrc/Traffic_plot.pm with:

@@ -85,24 +85,14 @@
         $GD_message = "Unable to import GD::Graph::pie" . $@;

       }
-     # Load GD::Graph:Colour ... to control symbols imported under Perl 5.6
-     # use autouse feature.
-     eval 'require 5.6.0';
-     if ($@ eq '') {
-        eval 'use autouse GD::Graph::colour => qw(:colours :lists :convert)';
-        unless (($GD_message eq "OK") and  ($@ eq '')) {
-            $GD_message = "Unable to use GD::Graph::colour" . $@;
-        }
-
-     } else { # Stick to old Perl procedure for loading symbols.
-        eval 'require GD::Graph::colour';
-        unless (($GD_message eq "OK") and  ($@ eq '')) {
-            $GD_message = "Unable to require GD::Graph::colour" . $@;
-        }
-        eval 'import GD::Graph::colour qw(:colours :lists :convert)';
-        unless (($GD_message eq "OK") and ($@ eq '')) {
-            $GD_message = "Unable to import GD::Graph::colour" . $@;
-        }
+     # Load GD::Graph:Colour ...
+     eval 'require GD::Graph::colour';
+     unless (($GD_message eq "OK") and  ($@ eq '')) {
+        $GD_message = "Unable to require GD::Graph::colour" . $@;
+     }
+     eval 'import GD::Graph::colour qw(:colours :lists :convert)';
+     unless (($GD_message eq "OK") and ($@ eq '')) {
+        $GD_message = "Unable to import GD::Graph::colour" . $@;
       }
   }



...and then reinstall, it should work.  Please let us know if there are any 
problems with this.
-- 
rkoga at caida.org (Ryan Koga)