Add $^E and $^O

[p5sagit/p5-mst-13.2.git] / lib / abbrev.pl

diff --git a/lib/abbrev.pl b/lib/abbrev.pl
index 5859a7b..c233d4a 100644 (file)
--- a/lib/abbrev.pl
+++ b/lib/abbrev.pl
@@ -10,6 +10,7 @@ sub main'abbrev {
     local(*domain) = @_;
     shift(@_);
     @cmp = @_;
+    local($[) = 0;
     foreach $name (@_) {
        @extra = split(//,$name);
        $abbrev = shift(@extra);