Re: "./Amanda/Recovery/Clerk/Feedback.pm: Permission denied at" error messages

Nathan,

Can you try the attached patch?

Jean-Louis

On 15/11/17 10:41 AM, Nathan Stratton Treadway wrote:
> On Thu, Jun 22, 2017 at 16:28:17 -0400, Nathan Stratton Treadway wrote:
> > That bug-comment references a "patch from upstream", which was
> > apparently applied to the Redhat 3.3.9 package at that time. The core
> > of that patch is the following change to
> > .../perl/Amanda/Config/FoldingHash.pm :
> >
> > +-use base 'Tie::StdHash';
> > ++eval {require 'Tie::StdHash';};
> > ++our @ISA = 'Tie::StdHash';
> >
>
> (Testing with Amanda 3.5:)
>
> I'm running into a similar error for the
> Amanda::Recovery::Clerk::Feedback class (when I run the command from
> root's home directory):
>
> =====
> # su backup -c "amvault TestBackup --dest-storage TestOffsite 
> --dry-run '*' '*' '*' 0"
> Can't locate Amanda/Recovery/Clerk/Feedback.pm: 
> ./Amanda/Recovery/Clerk/Feedback.pm: Permission denied at 
> /usr/share/perl/5.22/base.pm line 97.
> ...propagated at /usr/share/perl/5.22/base.pm line 106.
> BEGIN failed--compilation aborted at 
> /usr/lib/x86_64-linux-gnu/amanda/perl/Amanda/Vault.pm line 113.
> Compilation failed in require at /usr/sbin/amvault line 112.
> BEGIN failed--compilation aborted at /usr/sbin/amvault line 112.
> =====
>
> Like Tie::StdHash, that class is defined in Clerk.pm 
> <http://Clerk.pm> 
> directly rather
> than in Clerk/Feedback.pm, so I wonder if a similar workaround is needed
> here?
>
> Nathan
>
> ----------------------------------------------------------------------------
> Nathan Stratton Treadway - [email protected] - Mid-Atlantic region
> Ray Ontko & Co. - Software consulting services - http://www.ontko.com/ 
> <http://www.ontko.com/>
> GPG Key: http://www.ontko.com/~nathanst/gpg_key.txt 
> <http://www.ontko.com/~nathanst/gpg_key.txt> 
> ID: 1023D/ECFB6239
> Key fingerprint = 6AD8 485E 20B9 5C71 231C 0C32 15F3 ADCD ECFB 6239
This message is the property of CARBONITE, INC. and may contain confidential or privileged information.
If this message has been delivered to you by mistake, then do not copy or deliver this message to anyone.  Instead, destroy it and notify me by reply e-mail

diff --git a/perl/Amanda/Vault.pm b/perl/Amanda/Vault.pm
index 562dd3c..1f97a9f 100644
--- a/perl/Amanda/Vault.pm
+++ b/perl/Amanda/Vault.pm
@@ -107,7 +107,7 @@ use Amanda::Logfile qw( :logtype_t log_add log_add_full
 			log_rename $amanda_log_trace_log make_stats );
 use Amanda::Util qw ( match_datestamp match_level );
 
-use base qw(
+use parent -norequire qw(
     Amanda::Recovery::Clerk::Feedback
     Amanda::Taper::Scribe::Feedback
 );