| Subject: | PATCH for image not found |
Attached is a patch to fix the "Bad installation! Missing default image /usr/local/lib/perl5/site_perl/5.9.1/sun4-solaris/Tk/Wizard/images/wizard_blue.gif at /disk0/PROJECTS/perlmod/Tk-Wizard-Bases-1.06/blib/lib/Tk/Wizard.pm line 258" error on Solaris. The images get installed in $Config{sitelibexp}, not installsitearch.
diff -c /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.martin
*** /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm Fri Jun 27 02:57:44 2003
--- /PROJECTS/perlmod/Tk-Wizard-Bases-1.06/Wizard.pm.martin Tue Feb 1 13:56:54 2005
***************
*** 254,266 ****
if (not exists $args->{-imagepath}
or !-e $args->{-imagepath}){
warn "Can't find -imagepath, defaulting ($args->{-imagepath})." if exists $args->{-imagepath} and $^W;
! $args->{-imagepath} = $Config{installsitearch}."/Tk/Wizard/images/wizard_blue.gif";
die "Bad installation! Missing default image $args->{-imagepath}" if !-e $args->{-imagepath};
}
if (not exists $args->{-topimagepath}
or !-e $args->{-imagepath}){
warn "Can't find -topimagepath, defaulting ($args->{-topimagepath})." if exists $args->{-topimagepath} and $^W;
! $args->{-topimagepath} = $Config{installsitearch}."/Tk/Wizard/images/wizard_blue_top.gif";
die "Bad installation! Missing default image $args->{-topimagepath}" if !-e $args->{-topimagepath};
}
--- 254,266 ----
if (not exists $args->{-imagepath}
or !-e $args->{-imagepath}){
warn "Can't find -imagepath, defaulting ($args->{-imagepath})." if exists $args->{-imagepath} and $^W;
! $args->{-imagepath} = $Config{sitelibexp}."/Tk/Wizard/images/wizard_blue.gif";
die "Bad installation! Missing default image $args->{-imagepath}" if !-e $args->{-imagepath};
}
if (not exists $args->{-topimagepath}
or !-e $args->{-imagepath}){
warn "Can't find -topimagepath, defaulting ($args->{-topimagepath})." if exists $args->{-topimagepath} and $^W;
! $args->{-topimagepath} = $Config{sitelibexp}."/Tk/Wizard/images/wizard_blue_top.gif";
die "Bad installation! Missing default image $args->{-topimagepath}" if !-e $args->{-topimagepath};
}