- print NEW "File: $file\n";
- print NEW "Hash: ", $new->{$file}->{hash}, "\n";
- print NEW "Copyright: ", $new->{$file}->{copyright}, "\n";
- if($new->{$file}->{copyright_guess})
- {
- print NEW "#Copyright_guess: ", $new->{$file}->{copyright_guess}, "\n";
- }
- print NEW "License: ", $new->{$file}->{license}, "\n";
- if($new->{$file}->{license_guess})
- {
- print NEW "#License_guess: ", $new->{$file}->{license_guess}, "\n";
- }
- if($new->{$file}->{license_text})
- {
- my @text=split(/\n/, $new->{$file}->{license_text});
- print NEW "\t" . join("\n\t", @text), "\n";
- }
- print NEW "#Header: \n";
- my @headerlines=split(/\n/, $new->{$file}->{header});
- @headerlines=map { "#" . $_ } grep { defined $_; } @headerlines;
- print NEW join("\n", @headerlines);
- print NEW "\n\n";
+ print NEW "File: $file\n";
+ print NEW "Hash: ", $new->{$file}->{hash}, "\n";
+ print NEW "Copyright: ", $new->{$file}->{copyright}, "\n";
+ if($new->{$file}->{copyright_guess})
+ {
+ print NEW "#Copyright_guess: ", $new->{$file}->{copyright_guess}, "\n";
+ }
+ print NEW "License: ", $new->{$file}->{license}, "\n";
+ if($new->{$file}->{license_guess})
+ {
+ print NEW "#License_guess: ", $new->{$file}->{license_guess}, "\n";
+ }
+ if($new->{$file}->{license_text})
+ {
+ my @text=split(/\n/, $new->{$file}->{license_text});
+ print NEW "\t" . join("\n\t", @text), "\n";
+ }
+ print NEW "#Header: \n";
+ my @headerlines=split(/\n/, $new->{$file}->{header});
+ @headerlines=map { "#" . $_ } grep { defined $_; } @headerlines;
+ print NEW join("\n", @headerlines);
+ print NEW "\n\n";