Wed Feb 27 14:09:25 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>

1 files changed, 13 insertions, 3 deletions

diff --git a/modules/Driver.pm b/modules/Driver.pm
index 3b759156..1f963aa8 100644
--- a/modules/Driver.pm
+++ b/modules/Driver.pm
@@ -113,8 +113,19 @@ sub add_dynamic_creators {
     if (opendir($fh, "$dir/modules")) {
       foreach my $file (readdir($fh)) {
         if ($file =~ /(.+$type)\.pm$/i) {
-          $self->debug("Pulling in $1");
-          push(@{$self->{'creators'}}, $1);
+          my $name = $1;
+          if ($^O eq 'VMS') {
+            my($fh) = new FileHandle();
+            if (open($fh, $dir . "/modules/" . $file)) {
+              my $line = <$fh>;
+              if ($line =~ /^\s*package\s+(.+);/) {
+                $name = $1;
+              }
+              close($fh);
+            }
+          }
+          $self->debug("Pulling in $name");
+          push(@{$self->{'creators'}}, $name);
         }
       }
       closedir($fh);
@@ -122,7 +133,6 @@ sub add_dynamic_creators {
   }
 }
 
-
 sub parse_line {
   my($self)        = shift;
   my($ih)          = shift;