view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

if (exists $ENV{GNOKII_DIR} && -d $ENV{GNOKII_DIR}) {
    my $gdir = $ENV{GNOKII_DIR};
    $gnokii_lib = join " " => map { "-L$gdir$_" } "", "common/.libs";
    $gnokii_inc = "-I$gdir/include -I$gdir/gnokii";
    }
else {
    my $ext = $Config{dlext};
    grep { -x "$_/libgnokii.$Config{dlext}" ||
	   -x "$_/libgnokii.a"
	 } split m/\s+/ => $Config{libpth} or
	die "libgnokii not found. Unpack and compile, and set \$GNOKII_DIR\n";
    }

WriteMakefile (
    NAME         => "GSM::Gnokii",
    DISTNAME     => "GSM-Gnokii",
    ABSTRACT     => "API to libgnokii",
    AUTHOR       => "H.Merijn Brand <h.merijn\@xs4all.nl>",
    LICENSE      => "perl",
    VERSION_FROM => "lib/GSM/Gnokii.pm",

lib/GSM/Gnokii/Tk/GSMTree.pm  view on Meta::CPAN

sub set_dir
{
    my ($w, $val) = @_;
    # print STDERR "set_dir ($val)\n";
    my $fulldir = _cleanpath ($val);


    my $parent = "/";
    my @dirs = ("");#$parent);
    for (split m{/+} => $fulldir) {
	length or next;
	push @dirs, $_;
	my $dir = _cleanpath (join "/" => @dirs);
	$dir eq "/" and next;
	$w->infoExists ($dir) or $w->add_to_tree ($dir, $_, $parent);
	$parent = $dir;
	}

    $w->OpenCmd ($parent);
    $w->setmode ($parent, "close");