diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2009-09-03 19:18:12 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2009-09-03 19:18:12 +0000 |
commit | fa5f985c4c9cb6b5e563a5c4066f5358e4708d17 (patch) | |
tree | aef58a34f4f648573f749e02b952d55d341acc2b /modules/Options.pm | |
parent | 6bdcd2088ea89eab3a473ab62b81adefa6aa6f76 (diff) | |
download | MPC-fa5f985c4c9cb6b5e563a5c4066f5358e4708d17.tar.gz |
ChangeLogTag: Thu Sep 3 19:15:49 UTC 2009 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Options.pm')
-rw-r--r-- | modules/Options.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/Options.pm b/modules/Options.pm index bfc62436..9afcbfa9 100644 --- a/modules/Options.pm +++ b/modules/Options.pm @@ -444,9 +444,12 @@ sub options { $val = DirectoryManager::getcwd() . '/' . $val; } - ## Clean up the path as much as possible + ## Clean up the path as much as possible. For some reason, + ## File::Spec->canonpath() on Windows doesn't remove trailing + ## /. from the path. $relative{$name} = File::Spec->canonpath($val); $relative{$name} =~ s/\\/\//g; + $relative{$name} =~ s!/\.$!!; } else { $self->optionError('Invalid argument to -relative'); |