3 $date = `date "+%B %Y"`; chomp $date;
4 $year = `date "+%Y"` ; chomp $year;
6 print STDERR
"Changing version to \"$version\" and date to \"$date\" in all relevant files\n" ;
8 print STDERR
join("\n",glob("lisp/*.el")),"\n";
9 $cmd = qq{s/^(;; Version:)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\(defconst org-version )"(\\S+)"/\$1"$version"/};
10 $c1 = "perl -pi -e '$cmd' lisp/*.el";
13 print STDERR
"doc/org.texi\n";
14 $cmd = qq{s/^(\\\@set VERSION)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\\@set DATE)\\s+(.*)\$/\$1 $date/;};
15 $c1 = "perl -pi -e '$cmd' doc/org.texi";
18 print STDERR
"doc/orgcard.tex\n";
19 $cmd = qq{s/^\\\\def\\\\orgversionnumber\\{\\S+\\}/\\\\def\\\\orgversionnumber{$version}/;s/\\\\def\\\\versionyear\\{\\S+\\}/\\\\def\\\\versionyear{$year}/;s/\\\\def\\\\year\\{\\S+\\}/\\\\def\\\\year{$year}/;};
20 $c1 = "perl -pi -e '$cmd' doc/orgcard.tex";
23 print STDERR
"README_DIST\n";
24 $cmd = qq{s/^(The version of this release is:)\\s+(\\S+)[ \t]*\$/\$1 $version/;};
25 $c1 = "perl -pi -e '$cmd' README_DIST";
28 print STDERR
"ORGWEBPAGE/index.org\n";
29 $cmd = qq{s/^(\\* Current Version )\\(\\S+?\\)/\$1($version)/;s/^(The current version is)\\s+(\\S+)\\. /\$1 $version. /};
30 $c1 = "perl -pi -e '$cmd' ORGWEBPAGE/index.org";
31 print STDERR
$c1,"\n";