require 'syscall.ph';

use strict;
use Carp;

sub cwd ()
  {
    my $buf = ' ' x 256;
    $! = 0;
    my $res = syscall(&SYS_getcwd, $buf, length($buf))
    croak "getcwd: $!" if ($res == -1 && $! != 0);
    $buf =~ /\0.*$//;

    return $buf;
  }