Browse Source

Added title for Windows

Alois Mahdal 11 years ago
parent
commit
71208a9a28
1 changed files with 1 additions and 0 deletions
  1. 1
    0
      bin/watchdump.pl

+ 1
- 0
bin/watchdump.pl View File

@@ -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) {