Changeset 646 in MondoRescue for branches/2.0.8/tools/mkchangelog.pl

Timestamp:

Jun 8, 2006, 1:14:21 AM (18 years ago)

Author:

bcornec

Message:

Changelog reviewed once more

File:

• branches/2.0.8/tools/mkchangelog.pl (modified) (2 diffs)

branches/2.0.8/tools/mkchangelog.pl

@@ -30 +30 @@
         (not (defined $pkg)) || ($pkg eq "") || 
         (not (defined $outfile)) || ($outfile eq ""));
+
+die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME));
 
 if (-f "$TOOLHOME/../$pkg/ChangeLog") {
@@ -69 +71 @@
         while ($tmp !~ /^$/) {
             print OUTPUT $tmp;
-            if (<INPUT>) {
-                $tmp = $_;  
-            }
-            else {
-                last;
-            }
+            last if (eof(INPUT));
+            $tmp = <INPUT>;
         }
         print OUTPUT "\n";
+        last if (eof(INPUT));
     }
 }