view release on metacpan or  search on metacpan

inc/Module/Build/PdfDocument.pm  view on Meta::CPAN

sub wxpdf_source_url   { 'http://sourceforge.net/projects/wxcode/files/Components/wxPdfDocument/' . wxpdf_source_file();  }

sub wxpdf_wxconfig {
	my $self = shift;

	# not available on windows
	return $self->{_wxpdf_config_wxconfig} if $self->{_wxpdf_config_wxconfig};
	my $binpathconfig;
	my $sympathconfig = Alien::wxWidgets->prefix . '/bin/wx-config';

	# sometimes the symlink is broken - if there has been relocation etc.
	# but we know where it should be if installed by Alien::wxWidgets
	# For system installs, 'wx-config' should work

	eval {
		my $location = readlink($sympathconfig);
		my @sympaths = split( /\//, $location );
		my $testpath = Alien::wxWidgets->prefix . '/lib/wx/config/' . $sympaths[-1];
		$binpathconfig = $testpath if -f $testpath;
	};