added 0x8e to the list of banned characters

diff --git a/Changes b/Changes
index 39b49a0bd080d64883ee9bf35465b778ed47e4c6..9b62c193beb82aa90746f5a3fbc536edc3b84355 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+31Oct00=======================================================================
+1. add 0x8e to the list of characters we clobber (make xterm go into graphics
+mode).
 30Oct00=======================================================================
 1. put in new Filter::it code and tested it. Now all we have to do is write
 the user access routines (oh and the help files!).

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index db342dfb028c5b0dd57d9fc6415024f167f2821b..6ee7e13445d93d5a3a55f7242a2994791ab32f19 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl";
 @checklist = 
 (
  [ qw(c c m bp bc c) ],                        # pc10
- [ qw(f m d t m c c h) ],              # pc11
+ [ qw(f c d t m c c h) ],              # pc11
  [ qw(c bc m bp bm p h) ],             # pc12
  [ qw(c h) ],                                  # 
  [ qw(c h) ],                                  # 

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 5947b856f15cff628b458091ae440e81dcb99062..00ee6adb15a0ef8be4f7ca43110e201aafb7d2e2 100644 (file)
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -219,10 +219,13 @@ sub write
 {
        my $self = shift;
        my $sort = $self->{sort};
-       my $fn = $self->{name};
+       my $name = $self->{name};
        my $dir = "$filterbasefn/$sort";
+       my $fn = "$dir/$name";
+       
        mkdir $dir, 0775 unless -e $dir; 
-       my $fh = new IO::File ">$dir/$fn" or return "$dir/$fn $!";
+    rename $fn, "$fn.o" if -e $fn;
+       $fh = new IO::File ">$fn";
        if ($fh) {
                my $dd = new Data::Dumper([ $self ]);
                $dd->Indent(1);
@@ -230,6 +233,9 @@ sub write
                $dd->Quotekeys($] < 5.005 ? 1 : 0);
                $fh->print($dd->Dumpxs);
                $fh->close;
+       } else {
+               rename "$fn.o", $fn if -e "$fn.o";
+               return "$fn $!";
        }
        return undef;
 }

diff --git a/perl/Msg.pm b/perl/Msg.pm
index d93de1b77313294c8defe064f124a52b9b797534..a8db113761392d3ffbcf2dfa740288f9a4f97c98 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -238,7 +238,7 @@ FINISH:
        while (@lines){
                $msg = shift @lines;
                $msg =~ s/\%([2-9A-F][0-9A-F])/chr(hex($1))/eg;
-               $msg =~ s/[\x00-\x08\x0a-\x1f\x9b]/./g;         # immutable CSI sequence + control characters
+               $msg =~ s/[\x00-\x08\x0a-\x1f\x9b\x8e]/./g;         # immutable CSI sequence + control characters
                &{$conn->{rcvd_notification_proc}}($conn, $msg, $!);
                $! = 0;
        }