Changeset 350

Timestamp:

04/03/08 11:09:56 (5 years ago)

Author:

bruno

Message:

setupvm does 90% of the job now

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -1375 +1375 @@
         open(PBD,"$f") || die "Unable to open $f";
         while (<PBD>) {
+            next if (/^package/);
+            next if (/^use Exporter/);
+            next if (/^\@our /);
             print SCRIPT $_;
         }