constant $READ = 4; constant $WRITE = 2; constant $EXEC = 1; $READ +^ $WRITE == 6 or die "Wrong priviledge"; $READ +^ $EXEC == 5 or die "Wrong priviledge"; $READ +^ $WRITE +^ $EXEC == 7 or die "Wrong priviledge";
constant $READ = 4; constant $WRITE = 2; constant $EXEC = 1; $READ +^ $WRITE == 6 or die "Wrong priviledge"; $READ +^ $EXEC == 5 or die "Wrong priviledge"; $READ +^ $WRITE +^ $EXEC == 7 or die "Wrong priviledge";
Comments