All the core library users of Class::Struct seem to be

using "use Class::Struct 'struct';" instead of the bare
"use Class::Struct;", which isn't documented in Class::Struct.
This can't be right.

p4raw-id: //depot/perl@7925

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index be14fbc..0cf7a0b 100644 (file)
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -20,7 +20,7 @@ use vars @EXPORT_OK;
 # Class::Struct forbids use of @ISA
 sub import { goto &Exporter::import }
 
-use Class::Struct;
+use Class::Struct qw(struct);
 struct 'File::stat' => [
      map { $_ => '$' } qw{
         dev ino mode nlink uid gid rdev size