The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
// CabRegister.cpp

#include "StdAfx.h"

#include "../../Common/RegisterArc.h"

#include "CabHandler.h"
static IInArchive *CreateArc() { return new NArchive::NCab::CHandler; }

static CArcInfo g_ArcInfo =
  { L"Cab", L"cab", 0, 8, { 0x4D, 0x53, 0x43, 0x46 }, 4, false, CreateArc, 0 };

REGISTER_ARC(Cab)