Skip to content

Commit

Permalink
fix for perl 5.10
Browse files Browse the repository at this point in the history
  • Loading branch information
pmqs committed Dec 27, 2023
1 parent 2a06b0c commit 77c68e3
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion bin/zipdetails
Original file line number Diff line number Diff line change
Expand Up @@ -2362,6 +2362,8 @@ sub validateFilename

# TODO
# - check length of filename
# getconf NAME_MAX . and getconf PATH_MAX . on Linux
#
# - check that there aren't uuper & lower case version of the same file

# Start with APPNOTE restrictions
Expand Down Expand Up @@ -2411,7 +2413,7 @@ sub validateFilename

state $illegal_windows_chars = join '|', map { quotemeta } qw( < > : " | ? * );
return "Portability Issue: Windows filename cannot contain '$1'"
if $filename =~ /($illegal_windows_chars)/io ;
if $filename =~ /($illegal_windows_chars)/o ;

return "Portability Issue: Null character '\\x00' is not allowed in a Windows or Linux filename"
if $filename =~ /\x00/ ;
Expand Down

0 comments on commit 77c68e3

Please sign in to comment.