Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    }
    else { print "failed\n" }
}

Select or download this

Checking for mydata in ../datadir:

...
dirname($name)           : ../../mydir/../datadir        failed
dirname(rel2abs($0))     : /usr/local/bin/../datadir     failed
dirname(rel2abs($name1)) : /var/tmp/otherdir/symdir/../datadir   faile
+d