| # | 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 |