Why do I get perl errors

Created by linuxrules
Keywords:
Last updated by:
linuxrules

THIS DOES NOT APPLY TO YaTC 39+

You have a older Perl (Perl < 5.10)

Either install the Perl module "feature"

-or-
save the below as a fix.pl in your home folder:

#!/usr/bin/perl
while (<STDIN>){
s|(use.*?feature.*?)switch(.*?)|$1$2|g;
$flag ||= s|given|for|g;
if ($flag){
s|when(.*?)([0-9])(.*?)|if$1/$2/$3|g;
s|default|else|g;
}
print STDOUT $_;
}

__END__

and run this command:

cat /foo/bar/YaTC.pl | ~/fix.pl > ~/YaTC-fixed.pl

where "/foo/bar" is the path to YaTC.pl
the fixed version of YaTC.pl should be in your home folder