[fix handling of SIGINT for ghc 6.10
John Meacham <john@repetae.net>**20090709200802
 Ignore-this: 5d9747a48229bb0813c908575e427226
] hunk ./regress/regress.prl 9
-use POSIX qw(strftime);
+use POSIX qw(strftime SIGINT);
hunk ./regress/regress.prl 193
-                if($r == 64512) {done()};
+                if(statf($r) eq 'INT') {done()};
hunk ./regress/regress.prl 208
-                if($r == 64512) {done()};
+                if(statf($r) eq 'INT') {done()};
hunk ./regress/regress.prl 227
+sub statf {
+    return defined $_[0] ? ($_[0] == 64512 || ($_[0] & 127) == SIGINT  ? "INT" : $_[0] == 35072 || ($_[0] & 127) ==  24 ? "TIME" : $_[0]) : "-";
+}
+
hunk ./regress/regress.prl 232
-    sub statf {
-        return defined $_[0] ? ($_[0] == 64512 ? "INT" : $_[0] == 35072 ? "TIME" : $_[0]) : "-";
-    }
hunk ./src/CharIO.hs 40
-                   [ Handler $ \ (e::ExitCode) -> throw e
-                   , Handler $ \ (e::SomeException') -> putErrDie $ show e ]
+                   [ Handler $ \ (e::ErrorCall) -> putErrDie $ show e
+                   , Handler $ \ (e::IOException) -> putErrDie $ show e ]