Select Code to Download

   #!/usr/bin/perl

   use strict;
...

   # It dies here, line 23
   $pdb->addRecordRaw($rec,0,0,0);

   Can't call method "Raw" without a package or object reference

   int addRecordRaw(self, data, uid, attr, category)

      PDA::Pilot::File *self
...
      }
      OUTPUT:
      RETVAL

   sub Raw {
      # Just copy the "raw" item straight through
      my($self) = @_;
      return $self->{raw};
   }