r2700 - trunk/build.d/dist/debian

[cesc at minisip.org]

Author: cesc
Date: 2006-07-30 20:40:50 +0200 (Sun, 30 Jul 2006)
New Revision: 2700

Modified:
   trunk/build.d/dist/debian/dist.pl
Log:
Fix packaging problem.
Reported by Stephan Krause, Zwelch contributed a fix and Stephan confirmed it works.



Modified: trunk/build.d/dist/debian/dist.pl
===================================================================
--- trunk/build.d/dist/debian/dist.pl	2006-07-30 13:04:18 UTC (rev 2699)
+++ trunk/build.d/dist/debian/dist.pl	2006-07-30 18:40:50 UTC (rev 2700)
@@ -237,14 +237,13 @@
 
     die "No changes file found" unless $changes;
 
+    local *CHANGES;
     open(CHANGES, "< $changes") or die "can't read $changes";
 
     my @files;
     my $found = 0;
 
-    while(<CHANGES>) {
-	my $line = $_;
-
+    while (my $line = <CHANGES>) {
 	if ( $line =~ /^ / ) {
 	    if ( $found ) {
 		$line =~ s/^\s*//;