| # | Line 58 | Line 58 | our $opt_f || !-f $packagefile and get_package_details | |
|---|---|---|
| 58 | ||
| 59 | # Load the package details. All of them. | |
| 60 | my %cpanversions; | |
| 61 | < | open my $fh, $packagefile or die $!; |
| 61 | > | open my $fh, '<', $packagefile or die $!; |
| 62 | while (<$fh>) { | |
| 63 | my ($p, $v) = split ' '; | |
| 64 | next if 1../^\s*$/; # skip header | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |