Tiny fix from John P. Linderman.
Jarkko Hietaniemi [Tue, 27 Nov 2001 15:05:33 +0000 (15:05 +0000)]
p4raw-id: //depot/perl@13320

lib/sort.pm

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