Przeglądaj źródła

Added title for Windows

Alois Mahdal 12 lat temu
rodzic
commit
71208a9a28
1 zmienionych plików z 1 dodań i 0 usunięć
  1. 1
    0
      bin/watchdump.pl

+ 1
- 0
bin/watchdump.pl Wyświetl plik

@@ -44,6 +44,7 @@ my $file = shift @ARGV or &usage;
44 44
 
45 45
 while (1) {
46 46
     &clear;
47
+    system "title $file" if -d "c:\\windows";
47 48
     printf "[%s] watching: %s\n%s\n", &get_frame(), $file, "=" x 80
48 49
         unless $opts->{no_header};
49 50
     if (open my $fh, "<", $file) {