isa-migrate ++
authorhaftmann
Thu, 16 Jun 2005 10:42:55 +0200
changeset 16408 9bbaa5695691
parent 16407 e3c3405613c5
child 16409 a79f8993011b
isa-migrate ++
Admin/isa-migrate
--- a/Admin/isa-migrate	Thu Jun 16 10:37:39 2005 +0200
+++ b/Admin/isa-migrate	Thu Jun 16 10:42:55 2005 +0200
@@ -23,8 +23,8 @@
     },
     thyheader => sub {
         my ($file, @content) = @_;
-        #~ my $diag = 1;
-        my $diag = 0;
+        my $diag = 1;
+        #~ my $diag = 0;
         $_ = join("", @content);
         if (m!^theory!cgoms) {
             my $prelude = $`;
@@ -63,7 +63,7 @@
 
                 if (m!\G(?:begin|:)!cgoms) {
                     my $postlude = $';
-                    if ($& == ":") {
+                    if ($& eq ":") {
                         $thyheader .= " ";
                     }
                     $thyheader .=  "begin";