--- sdf-2.001.orig/perllib/sdf/table.pl	2003-01-09 02:35:14.000000000 +0000
+++ sdf-2.001/perllib/sdf/table.pl	2003-01-09 02:36:02.000000000 +0000
@@ -915,7 +915,7 @@
     local($packfmt);
 
     $packfmt = '';
-    while ($format =~ s/\w+\s+//e) {
+    while ($format =~ s/\w+\s+//) {
         $packfmt .= 'A' . length($&);
     }
     $packfmt .= 'A*';