X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFindBin.pm;h=918775cda7fcb78663018bf0080eab6a0e02a2ae;hb=b6d5cd8ca8d16f83d5c4c7a0bc602634e3efb321;hp=d908121dedc87cc867b350fddce47f3232576ad1;hpb=8b88ae9267370552321fe1d45306b5341068d1e2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index d908121..918775c 100644
--- a/lib/FindBin.pm
+++ b/lib/FindBin.pm
@@ -91,6 +91,12 @@ sub is_abs_path
   {
    return m#^[a-z]:[\\/]#i;
   }
+ elsif ($^O eq 'VMS')
+  {
+    # If it's a logical name, expand it.
+    $_ = $ENV{$_} while /^[\w\$\-]+$/ and $ENV{$_};
+    return m!^/! or m![<\[][^.\-\]>]! or /:[^<\[]/;
+  }
  else
   {
    return m#^/#;