← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to Tixish/DirTree.pm

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
Tixish/DirTree.pm
6
6
# Chris Dean <ctdean@cogit.com>
7
7
 
8
8
use vars qw($VERSION);
9
 
$VERSION = '3.023'; # $Id: //depot/Tk8/Tixish/DirTree.pm#23 $
 
9
$VERSION = '3.025'; # $Id: //depot/Tk8/Tixish/DirTree.pm#25 $
10
10
 
11
11
use Tk;
12
12
use Tk::Derived;
96
96
        next unless length $name;
97
97
        push @dirs, $name;
98
98
        my $dir = join( '/', @dirs );
 
99
        $dir =~ s|^//|/|;
99
100
        $w->add_to_tree( $dir, $name, $parent )
100
101
            unless $w->infoExists( $dir );
101
102
        $parent = $dir;