common: global Data() to parse perl code includes

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index 41768c156d7b228cd74d932f63c3410cb1cddb7a..6f2dd93b7344b3a281684bd0a849873576e263a3 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -17,7 +17,7 @@ Html({
 <p>The most significant features introduced for recent versions of the Perl
 scripting language.
 <:
-my $info = do 'perl.inc.pl' or die $@ // $!;
+my $info = Data('perl');
 
 say "Depending on desired compatibility you'll want to support a minimum of";
 say join(' or ', map {