Fri Feb 28 13:36:25 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>

1 files changed, 9 insertions, 0 deletions

diff --git a/modules/WorkspaceCreator.pm b/modules/WorkspaceCreator.pm
index fa5e5a99..b55b7a3e 100644
--- a/modules/WorkspaceCreator.pm
+++ b/modules/WorkspaceCreator.pm
@@ -27,6 +27,7 @@ use vars qw(@ISA);
 
 my($wsext)  = 'mwc';
 my($wsbase) = 'mwb';
+my($onVMS) = ($^O eq 'VMS');
 
 ## Valid names for assignments within a workspace
 my(%validNames) = ('cmdline'  => 1,
@@ -776,12 +777,20 @@ sub search_for_files {
       $self->search_for_files(\@f, $array, $impl);
       if ($impl) {
         $file =~ s/^\.\///;
+        if ($onVMS) {
+          # Strip out ^ symbols
+          $file =~ s/\^//g;
+        }
         unshift(@$array, $file);
       }
     }
     else {
       if ($file =~ /\.mpc$/) {
         $file =~ s/^\.\///;
+        if ($onVMS) {
+          # Strip out ^ symbols
+          $file =~ s/\^//g;
+        }
         unshift(@$array, $file);
       }
     }