ChangeLogTag: Thu Mar 20 12:46:46 UTC 2008 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 5 insertions, 10 deletions

diff --git a/modules/DirectoryManager.pm b/modules/DirectoryManager.pm
index eed2b9bb..5af88f0e 100644
--- a/modules/DirectoryManager.pm
+++ b/modules/DirectoryManager.pm
@@ -40,8 +40,7 @@ my($start) = $cwd;
 # ************************************************************
 
 sub cd {
-  my($self)   = shift;
-  my($dir)    = shift;
+  my($self, $dir) = @_;
   my($status) = chdir($dir);
 
   if ($status && $dir ne '.') {
@@ -99,8 +98,7 @@ sub mpc_basename {
 
 
 sub mpc_dirname {
-  my($self) = shift;
-  my($dir)  = shift;
+  my($self, $dir) = @_;
 
   if ($onVMS) {
     if (index($dir, '/') >= 0) {
@@ -119,8 +117,7 @@ sub mpc_dirname {
 
 
 sub mpc_glob {
-  my($self)    = shift;
-  my($pattern) = shift;
+  my($self, $pattern) = @_;
   my(@files)   = ();
 
   ## glob() provided by OpenVMS does not understand [] within
@@ -160,8 +157,7 @@ sub onVMS {
 
 
 sub path_is_relative {
-  my($self) = shift;
-  my($path) = shift;
+  my($self, $path) = @_;
   return (index($path, '/') != 0 && $path !~ /^[A-Z]:\//i);
 }
 
@@ -170,8 +166,7 @@ sub path_is_relative {
 # ************************************************************
 
 sub translate_directory {
-  my($self) = shift;
-  my($dir)  = shift;
+  my($self, $dir) = @_;
 
   ## Remove the current working directory from $dir (if it is contained)
   my($cwd) = $self->getcwd();