# | Line 5 | Line 5 | use Cwd; | |
---|---|---|
5 | @ISA = qw(Exporter); | |
6 | @EXPORT = qw(adddir); | |
7 | ||
8 | < | sub adddir ($directory) { |
8 | > | sub adddir { |
9 | my $indir=shift; | |
10 | my $startdir=cwd; | |
11 | my @dir=split /\//, $indir; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |