19 lines
332 B
Perl
19 lines
332 B
Perl
|
#! /usr/bin/perl
|
||
|
|
|
||
|
|
$release_files = 'source/utf8.h doc/utf8cpp.html doc/ReleaseNotes';
|
||
|
|
|
||
|
|
# First get the latest version
|
||
|
|
`svn update`;
|
||
|
|
|
||
|
|
# Then construct the name of the zip file
|
||
|
|
$argc = @ARGV;
|
||
|
|
if ($argc > 0) {
|
||
|
|
$zip_name = $ARGV[0];
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$zip_name = "utf8";
|
||
|
|
}
|
||
|
|
|
||
|
|
# Zip the files to an archive
|
||
|
|
`zip $zip_name $release_files`;
|