<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-GB" link="blue" vlink="purple" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Hello all<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">I hope someone can help. We are finally making the move from Centos to Ubuntu and are finding we are needing to make quite a few adjustments to the code base due to the version of perl being a lot
newer.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">However, one issue I cannot seem to resolve is the following<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Test File:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">#!/usr/bin/perl<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use lib '.';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use Dancer2 appname => 'archive_assets';<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use strict;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use warnings;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use Data::Dumper;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">use TryCatch;<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">try {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> say "1234";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">} catch {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> print "Something went wrong \n";<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">}<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Perl -c output<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">[archive_assets:1475837] core @2023-06-29 17:29:54> Built config from files: /var/www/OMG/tools/archive_assets/environments/development.yml in (eval 274) l. 910<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Couldn't find declarator 'try' at /usr/lib/x86_64-linux-gnu/perl5/5.34/Devel/Declare/Context/Simple.pm line 47.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> Devel::Declare::Context::Simple::skip_declarator(TryCatch=HASH(0x55fcf9da2b50)) called at /usr/lib/x86_64-linux-gnu/perl5/5.34/TryCatch.pm line 83<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> TryCatch::_parse_try("TryCatch", "main", "try", 0) called at /usr/lib/x86_64-linux-gnu/perl5/5.34/TryCatch.pm line 44<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> TryCatch::__ANON__("try", 0) called at /usr/lib/x86_64-linux-gnu/perl5/5.34/Devel/Declare.pm line 277<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> Devel::Declare::linestr_callback("const", "try", 0) called at z.pl line 11<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">I have tried hunting for an answer and it seems its an issue with Devel::Declare?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Any ideas?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Z<o:p></o:p></span></p>
</div>
</body>
</html>