root/trunk/PluginManager/plugins/PluginManager/lib/PluginManager/Util.pm @ 1

package PluginManager::Util;

use strict;
use vars qw(@EXPORT_OK @ISA);
require Exporter;
@EXPORT_OK = qw(debug scrub_path);
@ISA = qw(Exporter);

#####################################################################
# UTILITY SUBROUTINES
#####################################################################

sub debug {
    my $err = shift;
    my $mark = shift || '>';
    print STDERR "$mark $err\n" if $MT::Plugin::PluginManager::DEBUG;
}

sub scrub_path {
    my ($path) = @_;
    require File::Spec;
    my @dirs = File::Spec->splitdir($path);
    my @newdirs;
    foreach (@dirs) {
        if ($_ eq '..') {
            pop @newdirs;
        } elsif ($_ eq '.') {
            # do nothing
        } else {
            push @newdirs,$_;
        }
    }
    return File::Spec->catdir(@newdirs);
}

1;