p4raw-id: //depot/perl@4438
@_ > 2 && ref $_[2] or do {
require Exporter;
goto &Exporter::import;
- }
+ };
my (undef,$home_stash,$svref,@attrs) = @_;
my $svtype = uc reftype($svref);
qw(foo bar baz)
-is exactly equivalent to the list:
+is semantically equivalent to the list:
- ('foo', 'bar', 'baz')
+ 'foo', 'bar', 'baz'
Some frequently seen examples: