Hello. I have this code, which is an attempt to duplicate the permissions of one file onto another:
my $mode = (stat( $original_file ))[2];
my $perms = sprintf "%04o", $mode & 07777;
chmod( $target_file, oct($perms) ) or warn "Could not chmod '$targe
+t_file' to $perms: $!\n";
Perl warns me:
Could not chmod '/data/dmu/share/Product/PMprofile' to 0644: A file or
+ directory in the path name does not exist.
But it bloody well too does exist:
> ll /data/dmu/share/Product/PMprofile
-rw-rw-rw- 1 dfilmer wheel 1015 Jun 19 2012 /data/dmu/sha
+re/Product/PMprofile
I seek wisdom!!! Why does chmod not see my file?
Thanks!