home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / hypertext / latex2html_1 / !Perl_Lib_pl_getcwd < prev    next >
Encoding:
Text File  |  1996-07-08  |  178 b   |  13 lines
  1. # RiscOs version by S.W.Ellacott@brighton.ac.uk
  2. #
  3. # Usage: $cwd = &getcwd;
  4.  
  5. sub getcwd
  6. {
  7.     local ($dir,$csd) = split(/CSD  /,`cat`);
  8.     ($csd,$dir) = split(/\n/,$csd);
  9.     $csd;
  10. }
  11.  
  12. 1;
  13.