$ diff lib/TWiki.pm~ lib/TWiki.pm
277,278c277,278
<     foreach my $var qq( DataDir DefaultUrlHost PubUrlPath
<                         PubDir TemplateDir ScriptUrlPath LocalesDir ) {
---
>     foreach my $var ( qw( DataDir DefaultUrlHost PubUrlPath
>                           PubDir TemplateDir ScriptUrlPath LocalesDir ) ) {
607c607
<         my $len = do { use bytes; length( $text ); };
---
>         my $len = do { eval "use bytes"; length( $text ); };

$ diff lib/TWiki/Client.pm~ lib/TWiki/Client.pm
165c165
<     if( open( IPMAP, '<', $TWiki::cfg{Sessions}{Dir}.'/ip2sid' )) {
---
>     if( open( IPMAP, '<'. $TWiki::cfg{Sessions}{Dir}.'/ip2sid' )) {
173c173
<         open( IPMAP, '>', $TWiki::cfg{Sessions}{Dir}.'/ip2sid') ||
---
>         open( IPMAP, '>'. $TWiki::cfg{Sessions}{Dir}.'/ip2sid') ||

$ diff lib/TWiki/Store.pm~ lib/TWiki/Store.pm
379c379
<             foreach my $field qw(comment attr user version) {
---
>             foreach my $field ( qw(comment attr user version) ) {

$ diff lib/TWiki/Store/RcsFile.pm~ lib/TWiki/Store/RcsFile.pm
222c222
<         mkdir( $dir ) || throw Error::Simple(
---
>         mkdir( $dir, '777' ) || throw Error::Simple(
743c743
<     if( open( IN_FILE, '<', $name )) {
---
>     if( open( IN_FILE, '<'. $name )) {