9 use Inline (
  10         C => "DATA",
  11         ($ENV{LIBUSB_LIBDIR}
  12             ? ( LIBS => "-L\"$ENV{LIBUSB_LIBDIR}\" " .
  13                         ($^O eq 'MSWin32' ? ' -llibusb -L\"$ENV{WINDDK}\\lib\\crt\\i386\" -lmsvcrt ' : '-lusb') )
  14             : ( LIBS => '-lusb', )
  15         ),
  16         ($ENV{LIBUSB_INCDIR} ? ( INC => "-I\"$ENV{LIBUSB_INCDIR}\"" ) : () ),
  17         NAME => 'Device::USB',
  18         VERSION => '0.35',
  19         CCFLAGS => "$Config{ccflags} $ENV{CFLAGS} $ENV{CPPFLAGS}",
  20         LDDLFLAGS => "$Config{lddlflags} $ENV{LDFLAGS}",
  21    );
  22 print "CCFLAGS =>|$Config{ccflags}|$ENV{CFLAGS}|$ENV{CPPFLAGS}|\n";
  23 print "LDDLFLAGS =>|$Config{lddlflags}|$ENV{LDFLAGS}|\n";

##</code><code>##

root@gk-kubuntu-dev:~/dav/Nevada# perl kk.pl
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 10.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 10.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 10.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 22.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 22.
CCFLAGS =>|-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fstack-protector -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64|||
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 23.
LDDLFLAGS =>|-shared -L/usr/local/lib -fstack-protector||

##</code><code>##

 9 $ENV{CFLAGS} = 'A';
  10 $ENV{CPPFLAGS} = 'B';
  11 $ENV{LDFLAGS} = 'C';
  12 $ENV{LIBUSB_LIBDIR} = 'D';
  13 $ENV{WINDDK} = 'E';
  14 $ENV{LIBUSB__INCDIR} = 'F';
  15 use Inline ( 
  16         C => "DATA",
  17         ($ENV{LIBUSB_LIBDIR}
  18             ? ( LIBS => "-L\"$ENV{LIBUSB_LIBDIR}\" " .
  19                         ($^O eq 'MSWin32' ? ' -llibusb -L\"$ENV{WINDDK}\\lib\\crt\\i386\" -lmsvcrt ' : '-lusb') )
  20             : ( LIBS => '-lusb', )
  21         ),
  22         ($ENV{LIBUSB_INCDIR} ? ( INC => "-I\"$ENV{LIBUSB_INCDIR}\"" ) : () ),
  23         NAME => 'Device::USB',
  24         VERSION => '0.35',
  25         CCFLAGS => "$Config{ccflags} $ENV{CFLAGS} $ENV{CPPFLAGS}",
  26         LDDLFLAGS => "$Config{lddlflags} $ENV{LDFLAGS}",
  27    ); 
  28 print "CCFLAGS =>|$Config{ccflags}|$ENV{CFLAGS}|$ENV{CPPFLAGS}|\n";
  29 print "LDDLFLAGS =>|$Config{lddlflags}|$ENV{LDFLAGS}|\n";

##</code><code>##

Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 16.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 16.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/Device/USB.pm line 16.
CCFLAGS =>|-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fstack-protector -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64|A|B|
LDDLFLAGS =>|-shared -L/usr/local/lib -fstack-protector|C|