Help for this page

Select Code to Download

Select or download this
```
Undefined
subroutine &main:: called
```

Select or download this

sub BEGIN {
    my ( $dir, $orig_dir );
...
    unshift @INC, File::Spec->catdir( $orig_dir, 'lib' )
        if $orig_dir && ( $orig_dir ne $dir );
}