Switch metas back to printing to stdout.

2 files changed, 1 insertions, 6 deletions

diff --git a/metas/perl b/metas/perl
index e136090..23f4907 100755
--- a/metas/perl
+++ b/metas/perl
@@ -89,8 +89,7 @@ sub main
 	}
 	fetchdist($cpath);
 
-	open my $fh, '>', 'PKGDATA' or die "open: $!";
-	print $fh <<"END_META";
+	print <<"END_META";
 url
 https://metacpan.org/release/$realname
 
@@ -98,7 +97,6 @@ source
 http://search.cpan.org/CPAN/authors/id/$cpath
 
 END_META
-	close $fh;
 
 	my $file = $cpath; $file =~ s{.*/}{};
 	system 'perl-dist' => $file;
diff --git a/metas/perl.d/perl-dist b/metas/perl.d/perl-dist
index 69f9317..4690a7e 100755
--- a/metas/perl.d/perl-dist
+++ b/metas/perl.d/perl-dist
@@ -430,10 +430,7 @@ sub main
 		return 1;
 	}
 
-	close STDOUT;
-	open STDOUT, '>', 'PKGDATA' or die "open PKGDATA: $!";
 	printdata(\%pbvars);
-	close STDOUT or die "close PKGDATA: $!";
 	return 0;
 }