Commits

Herbert Breunung committed bbc1e3e

findlib works now locally

  • Participants
  • Parent commits 53eb3a1
  • Branches sp1

Comments (0)

Files changed (1)

File lib/findlib.pl

 FindKephraLib->new->MainLoop;
 
 package FindKephraLib;
+use Cwd qw(abs_path);
 use File::Find;
 use File::Spec;
 use FindBin qw($RealBin);
 	my $ed = Wx::TextCtrl->new($frame, -1, '',[-1,-1], [-1,-1], &Wx::wxTE_MULTILINE | &Wx::wxTE_READONLY);
 	find({ wanted => sub {
 		if (-f $_ and substr($_, -9) eq 'Kephra.pm') {
+			#$File::Find::dir #$File::Find::name # $_
 		 	my $path = File::Spec->catdir( $RealBin, $File::Find::name );
-		 	$path = File::Spec->canonpath( $path );
+		 	#$path = File::Spec->canonpath( $path );
+		 	$path = abs_path( $path );
 			$ed->AppendText( $path . "\n")
 		}
 	}, follow => 0, no_chdir => 1 }, '../../..');
 
-
-#$File::Find::dir
-#$File::Find::name # $_
 	$frame->Show(1);
 	$app->SetTopWindow($frame);
 	1;