|
Lines 2-10
Link Here
|
| 2 |
use Modern::Perl; |
2 |
use Modern::Perl; |
| 3 |
use Term::ANSIColor qw(:constants); |
3 |
use Term::ANSIColor qw(:constants); |
| 4 |
use Git::Wrapper; |
4 |
use Git::Wrapper; |
| 5 |
use File::Slurp qw( write_file ); |
5 |
use File::Slurp qw( write_file ); |
| 6 |
use File::Temp qw( tempfile ); |
6 |
use File::Temp qw( tempfile ); |
| 7 |
use List::Util qw( first ); |
7 |
use File::Basename qw(dirname); |
|
|
8 |
use File::Path qw(make_path); |
| 9 |
use List::Util qw( first ); |
| 8 |
use Getopt::Long; |
10 |
use Getopt::Long; |
| 9 |
use Pod::Usage; |
11 |
use Pod::Usage; |
| 10 |
use Try::Tiny; |
12 |
use Try::Tiny; |
|
Lines 164-169
FILE: while ( my ( $ii, $file ) = each @modified_files ) {
Link Here
|
| 164 |
|
166 |
|
| 165 |
next unless @content; # We removed the file |
167 |
next unless @content; # We removed the file |
| 166 |
|
168 |
|
|
|
169 |
my $parent_directory = dirname($file); |
| 170 |
unless ( -f $parent_directory ) { |
| 171 |
make_path($parent_directory); |
| 172 |
} |
| 167 |
write_file( $file, join "\n", @content ); |
173 |
write_file( $file, join "\n", @content ); |
| 168 |
|
174 |
|
| 169 |
# Tidy the file |
175 |
# Tidy the file |
| 170 |
- |
|
|