-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathdh-dzil-refresh
executable file
·84 lines (56 loc) · 2.04 KB
/
dh-dzil-refresh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use Getopt::Long;
my $build_dir = ".build/debian-build";
my ($wrap_and_sort, $wrap_and_sort_always, $clean_backup_files);
Getopt::Long::Configure(qw(auto_help));
GetOptions(
'wrap-and-sort|w' => \$wrap_and_sort,
'wrap-and-sort-always|a' => \$wrap_and_sort_always,
'clean-backup-files' => \$clean_backup_files,
) or die("Couldn't understand command line arguments, use --help to see available options \n");
die 'No dist.ini found in current directory. Bailing out'
unless -r 'dist.ini';
system(qw(dzil build --in), $build_dir);
system(qw(cp -pr debian), $build_dir);
chdir($build_dir);
system(qw(dh-make-perl refresh));
system("cp -pr debian/* ../../debian/");
chdir('../..');
system(qw(dzil clean));
if ($wrap_and_sort_always) {
system(qw(wrap-and-sort -a));
} elsif ($wrap_and_sort) {
system('wrap-and-sort');
}
if ($clean_backup_files) {
system('rm -f debian/*.bak');
}
=head1 NAME
dh-dzil-refresh - runs "dh-make-perl refresh" in dzil's build directory
=head1 SYNOPSIS
dh-dzil-refresh
dh-dzil-refresh [-w|--wrap-and-sort] [-c|--clean-backup-files]
dh-dzil-refresh [-a|--wrap-and-sort-always] [-c|--clean-backup-files]
dh-dzil-refresh [-h|--help]
=head1 OPTIONS
=over 4
=item C<-w>, C<--wrap-and-sort>
Run C<wrap-and-sort> after C<dh-make-perl refresh>.
=item C<-a>, C<--wrap-and-sort-always>
Run C<wrap-and-sort -a> after C<dh-make-perl refresh>.
=item C<-c>, C<--clean-backup-files>
Clean up C<*.bak> backup files created by C<dh-make-perl refresh>.
=back
=head1 COMMAND SPELLING
In comparison to L<dh_dzil_build> and L<dh_dzil_clean>, the command
name is spelled with dash instead of underscores as it's not a
debhelper plugin and only those should start with "dh_". The only
exemption is C<dh_make> -- for historical reasons. Note that even
C<dh-make-perl> is spelled with dashes.
=head1 SEE ALSO
L<debhelper(7)>, L<dh-dist-zilla(7)>, L<dh-make-perl(1)>, L<wrap-and-sort(1)>
=head1 AUTHOR
Elmar Heeb <[email protected]> and Axel Beckert <[email protected]>