mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-06 03:08:19 +00:00
Added ability to put new-lines in changelog entry.
Added -p to locate destination directory.
This commit is contained in:
parent
a4729b0b21
commit
e1885d17f2
|
@ -58,7 +58,6 @@ my %options; # command line options
|
|||
my @modified_files; # optional list of files that were modified
|
||||
my @added_files; # added files as an array
|
||||
my $added_file; # added file being considered
|
||||
my $patches_dir; # location of the patch file
|
||||
my $cvs_line; # line of output from CVS
|
||||
my $mod_files_str; # string that describes the modified files
|
||||
|
||||
|
@ -67,19 +66,21 @@ my $mod_files_str; # string that describes the modified files
|
|||
$options{n} = strftime "%Y%m%d%H%M", gmtime;
|
||||
$gen_date = strftime "%Y/%m/%d %H:%M:%S UTC", gmtime;
|
||||
|
||||
unless(getopts("vn:f:c:m:a:", \%options))
|
||||
unless(getopts("vn:f:c:m:a:p:", \%options))
|
||||
{
|
||||
print STDERR "Usage: $0 [-v] [-n patch_name] [-f patch_file] " .
|
||||
"[-c change_log] [-m modified_files] [-a added_files]\n";
|
||||
"[-c change_log] [-m modified_files] [-a added_files] [-p path_to_patches]\n";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
$options{f} = "patches/$options{n}.diff" unless(exists $options{f});
|
||||
$patches_dir = dirname $options{f};
|
||||
$options{p} = "patches" unless(exists $options{p});
|
||||
$options{f} = "$options{p}/$options{n}.diff" unless(exists $options{f});
|
||||
$options{p} = dirname $options{f};
|
||||
@added_files = split ' ', $options{a};
|
||||
@modified_files = split ' ', $options{m};
|
||||
$options{c} =~ s/\\n/\n\t/g;
|
||||
|
||||
if(-d $patches_dir)
|
||||
if(-d $options{p})
|
||||
{
|
||||
if(-e $options{f})
|
||||
{
|
||||
|
@ -89,8 +90,8 @@ if(-d $patches_dir)
|
|||
}
|
||||
else
|
||||
{
|
||||
mkdir $patches_dir, (0777 & ~umask) or
|
||||
die "Unable to mkdir $patches_dir: $!";
|
||||
mkdir $options{p}, (0777 & ~umask) or
|
||||
die "Unable to mkdir $options{p}: $!";
|
||||
}
|
||||
|
||||
$mod_files_str = exists($options{m}) ? $options{m} : "<see cvs diff>";
|
||||
|
|
Loading…
Reference in a new issue