From 4a2b7b2b5268b5b251a6edbef7291b7d4c57800e Mon Sep 17 00:00:00 2001 From: guido Date: Sun, 16 Jun 2002 07:12:37 +0000 Subject: [PATCH] read file git-svn-id: https://svn.dealii.org/trunk@6147 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/doc/RELEASE/announce.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/deal.II/doc/RELEASE/announce.pl b/deal.II/doc/RELEASE/announce.pl index 9062b35837..d0cd3ca6f6 100644 --- a/deal.II/doc/RELEASE/announce.pl +++ b/deal.II/doc/RELEASE/announce.pl @@ -40,9 +40,11 @@ my $version = $ARGV[0]; my $file = "announce-$version"; die "Announcement file $file does not exist" unless (-r $file); - $test = 0 if ($ARGV[1] eq 'ok'); +open ANNOUNCEMENT, $file; +my @announcement = ; + print "=====Announcing version $version=====\n"; ###################################################################### -- 2.39.5