--- 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*';