# | Line 28 | Line 28 | sub checkdir() { | |
---|---|---|
28 | # look at each item | |
29 | foreach my $item (@contents) { | |
30 | # lets ignore . and .. :) | |
31 | < | if($item =~ /^.$/ || $item =~ /^..$/) { |
31 | > | if($item =~ /^\.$/ || $item =~ /^\.\.$/) { |
32 | next; | |
33 | } | |
34 | # if it ends in ,v it's an RCS file! |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |