author | haftmann |
Thu, 16 Jun 2005 10:42:55 +0200 | |
changeset 16408 | 9bbaa5695691 |
parent 16407 | e3c3405613c5 |
child 16409 | a79f8993011b |
Admin/isa-migrate | file | annotate | diff | comparison | revisions |
--- 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";