Add missing dput to .rename
This commit is contained in:
@@ -178,6 +178,7 @@
|
|||||||
dac mode " save for access call
|
dac mode " save for access call
|
||||||
jms access " access OK? (or return error to user)
|
jms access " access OK? (or return error to user)
|
||||||
jms copy; 1:0; d.name; 4 " copy new name into directory entry
|
jms copy; 1:0; d.name; 4 " copy new name into directory entry
|
||||||
|
jms dput " and write it to disk
|
||||||
jmp okexit
|
jmp okexit
|
||||||
|
|
||||||
" time system call returns line (mains) frequency ticks
|
" time system call returns line (mains) frequency ticks
|
||||||
|
|||||||
@@ -210,6 +210,9 @@ sub print_direntry {
|
|||||||
$links = MAXINT - $links + 1;
|
$links = MAXINT - $links + 1;
|
||||||
$uid = -1 if ( $uid == MAXINT );
|
$uid = -1 if ( $uid == MAXINT );
|
||||||
|
|
||||||
|
# Warn about empty filename
|
||||||
|
$name= "EMPTY FILENAME" if ($name=~ m{/$});
|
||||||
|
|
||||||
printf( "%4d %s%s%s%s%s %2d %3d %5d %s\n",
|
printf( "%4d %s%s%s%s%s %2d %3d %5d %s\n",
|
||||||
$inum, $p1, $p2, $p3, $p4, $p5, $links, $uid, $size, $name );
|
$inum, $p1, $p2, $p3, $p4, $p5, $links, $uid, $size, $name );
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user