#!/usr/bin/perl
#
-# $Id: upd-kdoc-list.pl,v 1.9 2005/06/25 12:08:19 mdk Exp $
-#
# Kernel Docs ¤Î¥Ð¡¼¥¸¥ç¥ó¾ðÊó¥ê¥¹¥È¤ò,
# ¥«¡¼¥Í¥ë¥Ñ¥Ã¥Á¤ò»È¤Ã¤Æ¹¹¿·¤¹¤ë¥¹¥¯¥ê¥×¥È
#
# [»ÈÍÑÎã]
#
# $ ./upd-kdoc-list.pl ../lists/kdoc-2.6-version.list \
-# ~/src/patch-2.6.2.bz2 >../lists/kdoc-2.6-version.list.new
+# ~/src/patch-3.1.bz2 >../lists/kdoc-2.6-version.list.new
# $ cd ../lists
# $ mv kdoc-2.6-version.list.new kdoc-2.6-version.list
#
unless (-f $OLDLIST) {die "$OLDLIST does not exist.\n"};
unless (-f $K_PATCH) {die "$K_PATCH does not exist.\n"};
-unless ($NEWKVER =~ /^[23]\.([0246])\.([1-9][0-9]?)/) {
+unless ($NEWKVER =~ /^3\.([0-9]+)/) {
die "illegal version number.\n";
}
$NEWPATCHLEVEL = $1;
-$NEWSUBLEVEL = $2;
open OL, $OLDLIST;
while (<OL>) {
chomp;
- if (/^# latest versions of kernel docs, as of (2\.([246])\.([0-9][0-9]?))/) {
+ if (/^# latest versions of kernel docs, as of (3\.([0-9]+))/) {
$OLDKVER = $1;
$OLDPATCHLEVEL = $2;
- $OLDSUBLEBEL = $3;
- unless ($OLDPATCHLEVEL == $NEWPATCHLEVEL &&
- ++$OLDSUBLEBEL == $NEWSUBLEVEL) {
+ unless (++$OLDPATCHLEVEL == $NEWPATCHLEVEL) {
die "illegal version number.\n";
}
next;