On Dec 20, 2003, at 5:33 PM, Slaven Rezic wrote:
I think using $Config{installbin} is somewhat more portable here.
--- Tk-804.025_beta11/demos/demos/widget_lib/hello.pl Sat Dec 20
22:47:52 2003
+++ Tk-804.025_beta11-perl5.8.2d/demos/demos/widget_lib/hello.pl Sat
Dec 20 23:31:40 2003
@@ -1,7 +1,6 @@
# hello.pl
use Config;
-use File::Basename;
use Tk::widgets qw/ ROText /;
use vars qw/ $TOP /;
use strict;
@@ -22,7 +21,7 @@
my $t = $TOP->Scrolled(
qw/ ROText -width 80 -height 25 -wrap none -scrollbars osow/,
);
- my $cmd = dirname( $Config{perlpath} ) . '/perldoc -t
Tk::UserGuide';
+ my $cmd = $Config{installbin} . '/perldoc -t Tk::UserGuide';
$t->pack( qw/ -expand 1 -fill both / );
open( H, "$cmd|" ) or die "Cannot get pTk user guide: $!";
Thanks - Nick, applied in my copy.
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
| 
