"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "make_version_h.pl" between
whois_5.4.3.tar.xz and whois_5.5.0.tar.xz

About: whois is an improved whois client (searching in a RFC-3912 database)

make_version_h.pl  (whois_5.4.3.tar.xz):make_version_h.pl  (whois_5.5.0.tar.xz)
skipping to change at line 20 skipping to change at line 20
my $line = <$fh>; my $line = <$fh>;
close($fh); close($fh);
my ($ver) = $line =~ /^whois \s+ \( ( [^\)]+ ) \) \s+ \S+/x; my ($ver) = $line =~ /^whois \s+ \( ( [^\)]+ ) \) \s+ \S+/x;
die "Version number not found in $changelog!\n" if not $ver; die "Version number not found in $changelog!\n" if not $ver;
$ver =~ s/ ( ~bpo\d+\+\d+ | \+b\d+ | ~deb\d+.* | ubuntu\d+ | \+dyson\d+ ) $//x; $ver =~ s/ ( ~bpo\d+\+\d+ | \+b\d+ | ~deb\d+.* | ubuntu\d+ | \+dyson\d+ ) $//x;
# The version number must not deviate from this format or the -V option # The version number must not deviate from this format or the -V option
# to RIPE-like servers will break. If needed, update the previous regexp. # to RIPE-like servers will break. If needed, update the previous regexp.
# This may not be true anymore in 2019.
die "Invalid version number in $changelog!\n" die "Invalid version number in $changelog!\n"
unless $ver =~ /^ \d+\.\d+ ( \.\d+ )? $/x; unless $ver =~ /^ \d+\.\d+ ( \.\d+ )? $/x;
# This is the version number used in the help messages.
print qq|#define VERSION "$ver"\n|; print qq|#define VERSION "$ver"\n|;
# This is the string sent to RIPE-like servers as the argument of -V.
print qq|#define IDSTRING "Md$ver"\n|;
 End of changes. 3 change blocks. 
0 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)