View | Details | Raw Unified | Return to bug 38664
Collapse All | Expand All

(-)a/misc/devel/auto_rebase.pl (-4 / +9 lines)
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
- 

Return to bug 38664