[Bug 1166504] New: all scripts with 'use Pod::Usage' broken

[bugzilla at redhat.com]

https://bugzilla.redhat.com/show_bug.cgi?id=1166504

            Bug ID: 1166504
           Summary: all scripts with 'use Pod::Usage' broken
           Product: Fedora
           Version: 21
         Component: perl
          Assignee: jplesnik at redhat.com
          Reporter: dwm at enoyolf.org
        QA Contact: extras-qa at fedoraproject.org
                CC: cweyl at alumni.drew.edu, iarnell at gmail.com,
                    jplesnik at redhat.com, kasal at ucw.cz,
                    perl-devel at lists.fedoraproject.org, ppisar at redhat.com,
                    psabata at redhat.com, rc040203 at freenet.de,
                    tcallawa at redhat.com



Description of problem:
perl has trouble with the Pod/Usage.pm module

Version-Release number of selected component (if applicable):
perl-5.18.4-305.fc21.x86_64

How reproducible:
100%

Steps to Reproduce:
$ up-down.pl --date 141121

Actual results:
Can't locate Pod/Usage.pm:   Permission denied at
/home/dwm/perl/.../scripts/up-down.pl line 10.
BEGIN failed--compilation aborted at /home/dwm/perl/.../scripts/up-down.pl line
10.

Expected results:


Additional info:

snippet from up-down.pl:

#!/usr/bin/perl
use v5.14;
use strict; use warnings;
use Carp; $SIG{'USR2'} = sub {Carp::confess("caught SIGUSR2!");};
use Getopt::Long qw/&GetOptionsFromArray/;
use Config;
use English '-no_match_vars';
use File::Basename;
use File::Spec::Functions;
use Pod::Usage; <------------ line 10

Tried with 'setenforce Permissive', no change.  No AVCs or anything.

Commenting the line out works around it.  But jees, this breaks about 75% of my
perl scripts, going back for years worth.

-- 
You are receiving this mail because:
You are on the CC list for the bug.
Unsubscribe from this bug https://bugzilla.redhat.com/token.cgi?t=ivoAOAUZVo&a=cc_unsubscribe