start rewriting merge versions

[debbugs.git] / examples / debian / versions / merge-one-version

diff --git a/examples/debian/versions/merge-one-version b/examples/debian/versions/merge-one-version
index 7be6f38a198ac2c3305667d86ef51c00c0ec7d09..e35055639cf8c21d92c81778b1b628b410257996 100755 (executable)
--- a/examples/debian/versions/merge-one-version
+++ b/examples/debian/versions/merge-one-version
@@ -23,13 +23,15 @@ unless (-d "$root/$pkghash") {
     mkdir "$root/$pkghash" or die "can't mkdir $root/$pkghash";
 }
 my $outfile = "$root/$pkghash/$pkg";
-if (open PREV, "< $outfile") {
-    $tree->load(*PREV);
-    close PREV;
+my $PREV;
+if (open($PREV, "< $outfile")) {
+    $tree->load($PREV);
+    close($PREV);
 }
 
 $tree->load(*STDIN);
 
-open OUT, "> $outfile" or die "can't open $outfile for writing: $!\n";
-$tree->save(*OUT);
-close OUT or die "can't close $outfile: $!\n";
+my $OUT;
+open($OUT, "> $outfile") or die "can't open $outfile for writing: $!\n";
+$tree->save($OUT);
+close($OUT) or die "can't close $outfile: $!\n";