mkdir without arguments now defaults to $_

p4raw-id: //depot/perl@24378

2 files changed, 21 insertions, 3 deletions

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 8b6bad147c..a50a85192b 100644
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -137,7 +137,7 @@ lstat (*)
 lt ($$)
 m undef
 map undef
-mkdir ($;$)
+mkdir ()
 msgctl ($$$)
 msgget ($$)
 msgrcv ($$$$$)
diff --git a/t/op/mkdir.t b/t/op/mkdir.t
index 6198000642..65a7d3a4ed 100755
--- a/t/op/mkdir.t
+++ b/t/op/mkdir.t
@@ -1,4 +1,4 @@
-#!./perl
+#!./perl -w
 
 BEGIN {
     chdir 't' if -d 't';
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 13;
+plan tests => 22;
 
 use File::Path;
 rmtree('blurfl');
@@ -34,3 +34,21 @@ SKIP: {
     ok(rmdir('blurfl///'));
     ok(!-d 'blurfl');
 }
+
+# test default argument
+
+$_ = 'blurfl';
+ok(mkdir);
+ok(-d);
+ok(rmdir);
+ok(!-d);
+$_ = 'lfrulb';
+
+{
+    my $_ = 'blurfl';
+    ok(mkdir);
+    ok(-d);
+    ok(-d 'blurfl');
+    ok(!-d 'lfrulb');
+    ok(rmdir);
+}