diff -ru ExtUtils-CBuilder-0_09_02_orig/lib/ExtUtils/CBuilder/Platform/VMS.pm ExtUtils-CBuilder-0.09_02/lib/ExtUtils/CBuilder/Platform/VMS.pm
--- ExtUtils-CBuilder-0_09_02_orig/lib/ExtUtils/CBuilder/Platform/VMS.pm	2005-03-12 22:28:29.000000000 -0500
+++ ExtUtils-CBuilder-0.09_02/lib/ExtUtils/CBuilder/Platform/VMS.pm	2005-03-14 12:40:24.628116000 -0500
@@ -25,7 +25,7 @@
   return ("/exe=$file");
 }
 
-sub arg_shared_object_file {
+sub arg_share_object_file {
   my ($self, $file) = @_;
   return ("$self->{config}{lddlflags}=$file");
 }
diff -ru ExtUtils-CBuilder-0_09_02_orig/t/02-link.t ExtUtils-CBuilder-0.09_02/t/02-link.t
--- ExtUtils-CBuilder-0_09_02_orig/t/02-link.t	2005-03-12 22:28:29.000000000 -0500
+++ ExtUtils-CBuilder-0.09_02/t/02-link.t	2005-03-14 14:14:44.794097000 -0500
@@ -7,6 +7,10 @@
     print "1..0 # Skipped: link_executable() is not implemented yet on Win32\n";
     exit;
   }
+  if ($^O eq 'VMS') {
+    require vmsish;
+    import vmsish;
+  }
   plan tests => 5;
 }
 
@@ -35,8 +39,14 @@
 ok $exe_file;
 
 # Try the executable
-my $retval = system($exe_file);
-ok $retval >> 8, 11;
+if ($^O eq 'VMS') {
+  my $retval = system("mcr $exe_file");
+  ok $retval, 11;
+}
+else {
+  my $retval = system($exe_file);
+  ok $retval >> 8, 11;
+}
 
 # Clean up
 for ($source_file, $exe_file, $object_file, @temps) {