escape @ symbols in the basename since they are illegal in macro names. (NicJA)

git-svn-id: https://svn.aros.org/svn/aros/trunk/AROS@55785 fb15a70f-31f2-0310-bbcc-cdcc74a49acc
This commit is contained in:
wawa 2019-03-06 13:25:44 +00:00
parent 15faee5852
commit abad6f9fc0
1 changed files with 1 additions and 0 deletions

View File

@ -688,6 +688,7 @@ sub parse_sfd ( $ ) {
$$result{'basename'} =~ s/-/_/g;
$$result{'basename'} =~ s/\//_/g;
$$result{'basename'} =~ s/\./_/g;
$$result{'basename'} =~ s/@/_/g;
$$result{'basename'} = lc $$result{'basename'};
$$result{'BASENAME'} = uc $$result{'basename'};
$$result{'Basename'} = ucfirst $$result{'basename'};