Re^3: Entry widget not accepting /

[kcott]

in reply to Re^2: Entry widget not accepting /
in thread Entry widget not accepting /

G'day ghosh123,

The Entry widget is accepting a forward slash (/)!

I added an additional print statement to sub buildPath {...}:

sub buildPath
{
    my $path = shift;

    print "buildPath : BEFORE canonpath: $path :\n" ; 

    $path = File::Spec->canonpath($path);
    print  "buildPath : After canonpath: $path :\n" ; 
    ...

The output before and after canonpath() is:

...
buildPath : BEFORE canonpath: /home/ghoshabh/ :
buildPath : After canonpath: /home/ghoshabh :
...

Here's a workaround which I've successfully tested:

sub buildPath
{
    my $path = shift;
    my $trailing = $path =~ /\/$/ ? '/' : '';
    ...
    return $path . $trailing;
}