diff options
Diffstat (limited to '')
| -rw-r--r-- | bin/catalyst_graph_dispatcher.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/catalyst_graph_dispatcher.pl b/bin/catalyst_graph_dispatcher.pl index e8fc5c1..6c550e4 100644 --- a/bin/catalyst_graph_dispatcher.pl +++ b/bin/catalyst_graph_dispatcher.pl @@ -1,10 +1,10 @@ #!/usr/bin/perl -w use strict; -use lib('/home/franck/code/git/CatalystX-Dispatcher-AsGraph/lib'); use CatalystX::Dispatcher::AsGraph; my $graph = CatalystX::Dispatcher::AsGraph->new_with_options(); $graph->run; + if ( open( my $png, '|-', 'dot -Tpng -o ' . $graph->output ) ) { print $png $graph->graph->as_graphviz; close($png); |