This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] AutoLoader gives wrong message
authorPeter Scott <Peter@PSDT.com>
Thu, 7 Nov 2002 19:04:27 +0000 (11:04 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 19 Nov 2002 22:11:24 +0000 (22:11 +0000)
Message-id: <4.3.2.7.2.20021107185902.00b93ec0@shell2.webquarry.com>

With a tweak to the END cleanup block to fully remove the
temporary test directory

p4raw-id: //depot/perl@18163

lib/AutoLoader.t

index 2db1d60..408b281 100755 (executable)
@@ -16,7 +16,7 @@ BEGIN
        unshift @INC, $dir;
 }
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 
 # First we must set up some autoloader files
 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
@@ -49,6 +49,24 @@ sub bazmarkhianish { shift; shift || "baz" }
 EOT
 close(BAZ);
 
+open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawilla.al' ))
+       or die "Can't open blech file: $!";
+print BLECH <<'EOT';
+package Foo;
+sub blechanawilla { compilation error (
+EOT
+close(BLECH);
+
+# This is just to keep the old SVR3 systems happy; they may fail
+# to find the above file so we duplicate it where they should find it.
+open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawil.al' ))
+       or die "Can't open blech file: $!";
+print BLECH <<'EOT';
+package Foo;
+sub blechanawilla { compilation error (
+EOT
+close(BLECH);
+
 # Let's define the package
 package Foo;
 require AutoLoader;
@@ -85,6 +103,14 @@ is( $foo->bar($1), 'foo', '(again)' );
 is( $foo->bazmarkhianish($1), 'foo', 'for any method call' );
 is( $foo->bazmarkhianish($1), 'foo', '(again)' );
 
+# Used to retry long subnames with shorter filenames on any old
+# exception, including compilation error.  Now AutoLoader only
+# tries shorter filenames if it can't find the long one.
+eval {
+  $foo->blechanawilla;
+};
+like( $@, qr/syntax error/, 'require error propagates' );
+
 # test recursive autoloads
 open(F, '>', File::Spec->catfile( $fulldir, 'a.al'))
        or die "Cannot make 'a' file: $!";
@@ -130,5 +156,5 @@ package main;
 # cleanup
 END {
        return unless $dir && -d $dir;
-       rmtree $fulldir;
+       rmtree $dir;
 }