netvor
/
minions
Watch 1
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Browse Source

Added title for Windows

Alois Mahdal 12 years ago
parent
3a0d69344c
commit
71208a9a28
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1
    0
      bin/watchdump.pl

+ 1
- 0
bin/watchdump.pl View File

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