#!/usr/bin/perl --
use strict;
use warnings;
use Path::Class;
## exists
#~ my $file = q[C:\Program Files\Mozilla Firefox\chrome\icons\default\
+chatzilla-window.ico];
my $file = q[C:\Program Files\Mozilla Firefox\chrome2\icons2\default2\
+chatzilla-window2.ico];
$file = file($file);
while( not -r $file ){
printf "($file):\n(%d)(%s)\n(%d)(%s)\n\n", $!,$!,$^E,$^E;
$file = $file->parent;
}
print "$file\n\n";
__END__
(C:\Program Files\Mozilla Firefox\chrome2\icons2\default2\chatzilla-wi
+ndow2.ico):
(2)(No such file or directory)
(3)(The system cannot find the path specified)
(C:\Program Files\Mozilla Firefox\chrome2\icons2\default2):
(2)(No such file or directory)
(3)(The system cannot find the path specified)
(C:\Program Files\Mozilla Firefox\chrome2\icons2):
(2)(No such file or directory)
(3)(The system cannot find the path specified)
(C:\Program Files\Mozilla Firefox\chrome2):
(2)(No such file or directory)
(2)(The system cannot find the file specified)
C:\Program Files\Mozilla Firefox
|