Updated to F20, now perl can't find installed modules

[sean darcy]

Just upgraded from F19 to F20. perl-5.18.2-289.fc20.x86_64

As root:

# perl -V
Summary of my perl5 (revision 5 version 18 subversion 2) configuration:

   Platform:
     osname=linux, osvers=3.11.9-200.fc19.x86_64, 
archname=x86_64-linux-thread-multi
..........
   Built under linux
   Compiled at Jan  7 2014 14:47:21
   %ENV:
 
PERL5LIB="/root/perl5/lib/perl5/x86_64-linux-thread-multi:/root/perl5/lib/perl5"
     PERL_LOCAL_LIB_ROOT="/root/perl5"
     PERL_MB_OPT="--install_base /root/perl5"
     PERL_MM_OPT="INSTALL_BASE=/root/perl5"
   @INC:
     /root/perl5/lib/perl5/x86_64-linux-thread-multi
     /root/perl5/lib/perl5
     /usr/local/lib64/perl5
     /usr/local/share/perl5
     /usr/lib64/perl5/vendor_perl
     /usr/share/perl5/vendor_perl
     /usr/lib64/perl5
     /usr/share/perl5

BTW, there is no /root/perl5 folder.

# perl -e 'use strict; print map {"$_ => $INC{$_}\n"} keys %I'
strict.pm => /usr/share/perl5/strict.pm

As a user:

$ perl -e 'use strict; print "ok"'
Can't locate strict.pm:   Permission denied at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

$ ls -l /usr/share/perl5/strict.pm
-rwxr-xr-x. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm

$ perl -e 'print join "\n", @INC'
/root/perl5/lib/perl5/x86_64-linux-thread-multi
/root/perl5/lib/perl5
/usr/local/lib64/perl5
/usr/local/share/perl5
/usr/lib64/perl5/vendor_perl
/usr/share/perl5/vendor_perl
/usr/lib64/perl5
/usr/share/perl5


This works as root. And used to work as a user in F19. And works on 
another F19 machine.

Any help appreciated.

sean

[Joe Zeff]

On 04/02/2014 10:28 AM, Sean Darcy wrote:
>  Whew. Figured this out with the great assistance of the Perl Monks.
Shouldn't they be called the Perl Divers?

[sean darcy]

On 04/01/2014 02:57 PM, Sean Darcy wrote:
>  On 04/01/2014 02:34 PM, Sean Darcy wrote:
> > Just upgraded from F19 to F20. perl-5.18.2-289.fc20.x86_64
> >
> > As root:
> >
> > # perl -V
> > Summary of my perl5 (revision 5 version 18 subversion 2) configuration:
> >
> >    Platform:
> >      osname=linux, osvers=3.11.9-200.fc19.x86_64,
> > archname=x86_64-linux-thread-multi
> > ..........
> >    Built under linux
> >    Compiled at Jan  7 2014 14:47:21
> >    %ENV:
> >
> >
> PERL5LIB="/root/perl5/lib/perl5/x86_64-linux-thread-multi:/root/perl5/lib/perl5"
> >
> >
> >      PERL_LOCAL_LIB_ROOT="/root/perl5"
> >      PERL_MB_OPT="--install_base /root/perl5"
> >      PERL_MM_OPT="INSTALL_BASE=/root/perl5"
> >    @INC:
> >      /root/perl5/lib/perl5/x86_64-linux-thread-multi
> >      /root/perl5/lib/perl5
> >      /usr/local/lib64/perl5
> >      /usr/local/share/perl5
> >      /usr/lib64/perl5/vendor_perl
> >      /usr/share/perl5/vendor_perl
> >      /usr/lib64/perl5
> >      /usr/share/perl5
> >
> > BTW, there is no /root/perl5 folder.
> >
> > # perl -e 'use strict; print map {"$_ => $INC{$_}\n"} keys %I'
> > strict.pm => /usr/share/perl5/strict.pm
> >
> > As a user:
> >
> > $ perl -e 'use strict; print "ok"'
> > Can't locate strict.pm:   Permission denied at -e line 1.
> > BEGIN failed--compilation aborted at -e line 1.
> >
> > $ ls -l /usr/share/perl5/strict.pm
> > -rwxr-xr-x. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm
> >
> > $ perl -e 'print join "\n", @INC'
> > /root/perl5/lib/perl5/x86_64-linux-thread-multi
> > /root/perl5/lib/perl5
> > /usr/local/lib64/perl5
> > /usr/local/share/perl5
> > /usr/lib64/perl5/vendor_perl
> > /usr/share/perl5/vendor_perl
> > /usr/lib64/perl5
> > /usr/share/perl5
> >
> >
> > This works as root. And used to work as a user in F19. And works on
> > another F19 machine.
> >
> > Any help appreciated.
> >
> > sean
> >
>
>  And the user can read strict.pm:
>
>  $ cat /usr/share/perl5/strict.pm
>  package strict;
>
>  $strict::VERSION = "1.07";
>  ...............
>
>
>  What's going wrong here?
>
>  sean
>  
Got an answer:

The problem is that the module search behavior changed from 5.16 (F19) 
to 5.18 (F20).  Now perl will stop looking for modules if any prior 
folder is not allowed. Before PERL5LIB extended @INC.  Now if it 
includes /root. for instance, any module search by a non-root user will 
fail. Each non-root user needs to have PERL5LIB referring only to 
folders where it has read permission.

Whew. Figured this out with the great assistance of the Perl Monks.

[Dave Mitchell]

On Tue, Apr 01, 2014 at 02:34:22PM -0400, Sean Darcy wrote:
>  $ perl -e 'use strict; print "ok"'
>  Can't locate strict.pm:   Permission denied at -e line 1.
>  BEGIN failed--compilation aborted at -e line 1. 
As I've pointed out on perlmonks where you cross-posted your question,

    http://www.perlmonks.org/?node_id=1080639

In perl 5.18.0 onwards, perl stops and reports an error if it can't read
the next directory in the search path, because it has no way of telling
whether the module exists or not in that directory, and therefore you'll
run into issues of perl picking up the wrong version of module. I.e.
better to nosily fail and force you to fix your @INC path and/or
permissions, than for perl to load a possibly older, buggier version of a
module and silently continue.


-- 
A walk of a thousand miles begins with a single step...
then continues for another 1,999,999 or so.

[Garry Williams]

On 4-1-14 14:34:22 Sean Darcy wrote:
>  $ ls -l /usr/share/perl5/strict.pm
>  -rwxr-xr-x. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm 
I was thinking about this anomaly some more...

The only thing that touches /usr normally is rpm(8)[*].  (yum, dnf,
and GUI friends all call rpm(8) to change files in /usr.)  And rpm(8)
doesn't get this stuff wrong.  Well, at least not if the rpm file is
correct and I think after decades of correct rpms for Perl, it's
probably correct today in F20.  At least it is on my updated to F20
system.

Have you done other things to /usr as the root user?

>  As root:
>
>  # perl -V 
This is a bad sign.  Why would you use the root user to run perl -V?

But maybe the mystery is solved by finding out which perl binary file
is actually being executed both as root and as a normal user.

__________________________
[*] Except /usr/local, that is.  That directory is properly the
property of the system administrator.  The other stuff in /usr is the
property of the system.  And the rpm(8) program maintains files there;
never sysadmins.

-- 
Garry T. Williams

[Garry Williams]

On 4-1-14 14:57:13 Sean Darcy wrote:
>  And the user can read strict.pm:
>  
>  $ cat /usr/share/perl5/strict.pm
>  package strict;
>  
>  $strict::VERSION = "1.07";
>  ...............
>  
>  
>  What's going wrong here? 
What does `which perl` say?

-- 
Garry T. Williams

[Garry Williams]

On 4-1-14 14:34:22 Sean Darcy wrote:
>  # perl -e 'use strict; print map {"$_ =>
> $INC{$_}\n"} keys %I'
>  strict.pm => /usr/share/perl5/strict.pm 
OK, I'll bite and copy/paste what you wrote.

    # perl -e 'use strict; print map {"$_ => $INC{$_}\n"} keys %I'
    Global symbol "%I" requires explicit package name at -e line 1.
    Execution of -e aborted due to compilation errors.
    #

Hmmm.  Maybe you didn't copy and paste...

    # perl -e 'use strict; print map {"$_ => $INC{$_}\n"} keys %INC'
    strict.pm => /usr/share/perl5/strict.pm
    #

>  As a user:
>  
>  $ perl -e 'use strict; print "ok"'
>  Can't locate strict.pm:   Permission denied at -e line 1.
>  BEGIN failed--compilation aborted at -e line 1. 
    $ perl -le 'use strict; print "ok"'
    ok
    $

>  $ ls -l /usr/share/perl5/strict.pm
>  -rwxr-xr-x. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm 
Your installation is broken.  This file (and all Perl module files)
should have 0644 permissions -- not execute.

    $ ls -l /usr/share/perl5/strict.pm
    -rw-r--r--. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm
    $

The error message you encountered may be because of you not having
access to an intermediate directory in the path to strict.pm.  You
should check that:

    $ for d in /usr /usr/share /usr/share/perl5;do ls -ld $d;done
    drwxr-xr-x. 12 root root 4096 Dec 21 11:13 /usr/
    drwxr-xr-x. 288 root root 12288 Mar 28 15:24 /usr/share/
    drwxr-xr-x. 49 root root 4096 Jan 11 17:59 /usr/share/perl5/
    $

Anyway, since one thing in your installation is hosed, you probably
should reinstall perl to get the correct permissions set on its files.

I would be wondering how I managed to do that to the file, though.
The rpm -V command /might/ be of help to you.

On 4-1-14 14:57:13 Sean Darcy wrote:
>  On 04/01/2014 02:34 PM, Sean Darcy wrote:
>  And the user can read strict.pm:
>  
>  $ cat /usr/share/perl5/strict.pm
>  package strict;
>  
>  $strict::VERSION = "1.07";
>  ...............
>  
>  
>  What's going wrong here? 
Hmmm.  Any AVCs?

-- 
Garry T. Williams

[sean darcy]

On 04/01/2014 02:34 PM, Sean Darcy wrote:
>  Just upgraded from F19 to F20. perl-5.18.2-289.fc20.x86_64
>
>  As root:
>
>  # perl -V
>  Summary of my perl5 (revision 5 version 18 subversion 2) configuration:
>
>     Platform:
>       osname=linux, osvers=3.11.9-200.fc19.x86_64,
>  archname=x86_64-linux-thread-multi
>  ..........
>     Built under linux
>     Compiled at Jan  7 2014 14:47:21
>     %ENV:
>
>
> PERL5LIB="/root/perl5/lib/perl5/x86_64-linux-thread-multi:/root/perl5/lib/perl5"
>
>       PERL_LOCAL_LIB_ROOT="/root/perl5"
>       PERL_MB_OPT="--install_base /root/perl5"
>       PERL_MM_OPT="INSTALL_BASE=/root/perl5"
>     @INC:
>       /root/perl5/lib/perl5/x86_64-linux-thread-multi
>       /root/perl5/lib/perl5
>       /usr/local/lib64/perl5
>       /usr/local/share/perl5
>       /usr/lib64/perl5/vendor_perl
>       /usr/share/perl5/vendor_perl
>       /usr/lib64/perl5
>       /usr/share/perl5
>
>  BTW, there is no /root/perl5 folder.
>
>  # perl -e 'use strict; print map {"$_ => $INC{$_}\n"} keys %I'
>  strict.pm => /usr/share/perl5/strict.pm
>
>  As a user:
>
>  $ perl -e 'use strict; print "ok"'
>  Can't locate strict.pm:   Permission denied at -e line 1.
>  BEGIN failed--compilation aborted at -e line 1.
>
>  $ ls -l /usr/share/perl5/strict.pm
>  -rwxr-xr-x. 1 root root 3933 Jan  7 09:48 /usr/share/perl5/strict.pm
>
>  $ perl -e 'print join "\n", @INC'
>  /root/perl5/lib/perl5/x86_64-linux-thread-multi
>  /root/perl5/lib/perl5
>  /usr/local/lib64/perl5
>  /usr/local/share/perl5
>  /usr/lib64/perl5/vendor_perl
>  /usr/share/perl5/vendor_perl
>  /usr/lib64/perl5
>  /usr/share/perl5
>
>
>  This works as root. And used to work as a user in F19. And works on
>  another F19 machine.
>
>  Any help appreciated.
>
>  sean
>  
And the user can read strict.pm:

$ cat /usr/share/perl5/strict.pm
package strict;

$strict::VERSION = "1.07";
...............


What's going wrong here?

sean