some demo fixes

diff --git a/tclpkg/gv/demo/modgraph.pl b/tclpkg/gv/demo/modgraph.pl
index 8a634d71683ef024e5407240f75320ee2bc1d419..f134fc47d59ea65230242255321d8922d844a535 100755 (executable)
--- a/tclpkg/gv/demo/modgraph.pl
+++ b/tclpkg/gv/demo/modgraph.pl
@@ -4,8 +4,7 @@
 
 # author: John Ellson <ellson@research.att.com>
 
-#use lib "/usr/lib/graphviz/perl";
-use lib "/home/ellson/FIX/Linux.i686/lib/graphviz/perl";
+use lib "/usr/lib/graphviz/perl";
 use gv;
 
 $g = gv::digraph "G";

diff --git a/tclpkg/gv/demo/modgraph.tcl b/tclpkg/gv/demo/modgraph.tcl
index f7f0848349e1fb37c8028b886d0a231f0b1f3448..f04d85c27a72de2327396d7d24906d23c5eaa926 100755 (executable)
--- a/tclpkg/gv/demo/modgraph.tcl
+++ b/tclpkg/gv/demo/modgraph.tcl
@@ -4,11 +4,7 @@
 
 # author: John Ellson <ellson@research.att.com>
 
-#package require gv
-
-load /usr/lib/graphviz/tcl/gv.so
-#load /usr/lib64/graphviz/tcl/gv.so
-#load $env(PREFIX)/lib/graphviz/tcl/gv.so
+package require gv
 
 set f [open /proc/modules r]
 set modules [read -nonewline $f]

diff --git a/tclpkg/gv/gv_doc_langs.tcl b/tclpkg/gv/gv_doc_langs.tcl
index dbb47c1c772266250a6f0d32621e4d9242ff1b85..1bf2e8f0c4e374e7f06757a3e9b0462925206b2a 100644 (file)
--- a/tclpkg/gv/gv_doc_langs.tcl
+++ b/tclpkg/gv/gv_doc_langs.tcl
@@ -236,6 +236,7 @@ array set LANGS {
                }
                SYNOPSIS {
                        {#!/usr/bin/perl}
+                       {use lib "/usr/lib/graphviz/perl"}
                        {use gv;}
                }
                USAGE {