diff options
| author | Adam Mitz <mitza-oci@users.noreply.github.com> | 2012-03-30 13:46:34 +0000 |
|---|---|---|
| committer | Adam Mitz <mitza-oci@users.noreply.github.com> | 2012-03-30 13:46:34 +0000 |
| commit | 380473e51db5ae306582a2a14657d5c9c4b84688 (patch) | |
| tree | 18907717a3b4a4b991b7249016becba77a71a03b /modules | |
| parent | 8bd6954207f43c64ce80c0b66810605bad4df4b9 (diff) | |
| download | MPC-380473e51db5ae306582a2a14657d5c9c4b84688.tar.gz | |
ChangeLogTag: Fri Mar 30 13:45:44 UTC 2012 Adam Mitz <mitza@ociweb.com>
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/WorkspaceCreator.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/modules/WorkspaceCreator.pm b/modules/WorkspaceCreator.pm index 45f089b8..88f24eaf 100644 --- a/modules/WorkspaceCreator.pm +++ b/modules/WorkspaceCreator.pm @@ -1250,10 +1250,9 @@ sub topname { my($self, $file) = @_; my $dir = '.'; my $rest = $file; - if ($file =~ /^([^\/\\]+)[\/\\](.*)/) { + if ($file =~ /^([^\/\\]+)[\/\\](.*)/ && $1 !~ /^[a-z]:$/i) { $dir = $1; $rest = $2; - $dir .= '/' if ($dir =~ /^[a-z]:$/i); } return $dir, $rest; } |