Allow several arguments to display().

[p5sagit/p5-mst-13.2.git] / lib / sort.pm

diff --git a/lib/sort.pm b/lib/sort.pm
index c9ef3fa..18f3606 100644 (file)
--- a/lib/sort.pm
+++ b/lib/sort.pm
@@ -31,7 +31,7 @@ sub import {
            $^H{SORT} |=  $sort::stable_bit;
        } else {
            require Carp;
-           Carp::croak("sort: unknown subpragma '@_'");
+           Carp::croak("sort: unknown subpragma '$_'");
        }
     }
 }