Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (19 sloc) 448 Bytes
#!/usr/bin/perl
# Copyright (C) 2008-2011, The Perl Foundation.
use strict;
use warnings;
use 5.008;
binmode STDOUT, ':utf8';
my @files = @ARGV;
print <<"END_HEAD";
# This file automatically generated by $0
END_HEAD
foreach my $file (@files) {
print "# From $file\n\n";
open(my $fh, "<:utf8", $file) or die "$file: $!";
local $/;
my $x = <$fh>;
close $fh;
print $x;
}
print "\n# vim: set ft=perl6 nomodifiable :\n";
Jump to Line
Something went wrong with that request. Please try again.