--- lib/cpan/lib/cgi/session/driver/file.pm_old	Fri Jul  4 00:04:45 2008
+++ lib/cpan/lib/cgi/session/driver/file.pm	Tue Jun 24 22:42:16 2008
@@ -22,6 +22,10 @@
 $CGI::Session::Driver::file::VERSION    = "4.20";
 $FileName                               = "cgisess_%s";
 $NoFlock                                = 0;
+
+#VMS does not have flock, but by default locks files for exclusive writes.
+
+$NoFlock                                = 1 if $^O eq 'VMS';
 $UMask                                  = 0660;
 $NO_FOLLOW                              = eval { O_NOFOLLOW } || 0;