--- a/bin/update-serial	Mon May 30 11:58:30 2011 +0200
+++ b/bin/update-serial	Mon May 30 16:50:03 2011 +0200
@@ -498,7 +498,7 @@
     my $in = IO::File->new("$dir/$zone") or die "Can't open $dir/$zone: $!\n";
     my $out = File::Temp->new(DIR => $dir) or die "Can't open tmpfile: $!\n";
 
-    print $out grep { !/\$include\s+.*key/i } $in;
+    print $out grep { !/\$include\s+.*key/i } <$in>;
     print $out map  { "\$INCLUDE @{[basename $_]}\n" } glob "$dir/K*key";
 
     close $in;